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ABSTRACT 

\ 

■X 

The  theory  and  numerical  methods  are  presented  for  determining  the  paths 
and  wave  heights  of  gravity  water  wave  packets.  Both  variable  water  depths 
and  currents  are  considered.  The  wave  height  is  computed  accounting  for  the 
effects  of  shoaling,  refraction,  and  energy  dissipation.  A  ray  curvature 
expression  is  used  to  determine  the  wave  packet  trajectories  where  the  speed 
of  the  packet  is  given  by  G  *  (du>/dk)  cos  The  symbol  uj  denotes  the  angular 
frequency,  k  is  the  wave  number,  and  cj)  is  the  difference  between  the  direction 
of  the  wave  packet  and  the  direction  of  the  wavelets  within  the  packet.  The 
wavelet  direction  is  determined  at  each  point  of  the  wave  packet  trajectory. 

The  wave  packet  and  ray  directions  differ  when  there  are  currents.  The  cal¬ 
culations  for  variations  in  water  depth  are  greatly  simplified  by  choosing 
a  coordinate  system  at  each  ray  point  in  which  one  axis  is  aligned  parallel 
with  the  direction  of  the  gradient  of  the  water  depth.  In  a  similar  fashion, 
the  calculations  involving  variations  in  current  are  simplified  by  choosing  a 
coordinate  system  at  each  ray  point  in  which  an  axis  is  taken  parallel  with  the 
direction  of  the  gradient  of  the  current  magnitude.  Example  printouts  and  plots 
are  presented  to  illustrate  the  wave  prediction  method. 
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CHAPTER  I 


Ic  has  been  shown  by  Breeding  (1978,  1981)  Chat  a  wave  packet  refracts 
according  to  Snell's  law  with  the  geometric  group  velocity  G  where 


G  =  (Aw  /  Si^)  ^ 


(1-1) 


The  symbol  u  denotes  the  angular  frequency  and  k  is  the  wave  number.  The 
angle  is  the  difference  between  the  direction  of  the  wave  packet  and 
the  direction  of  the  wavelets  within  Che  packet.  The  wavelet  direction  at 
each  point  of  the  wave  packet  trajectory  is  determined  by  Snell's  law  with 
phase  velocity. 

In  this  work  a  numerical  method  is  presented  for  determining  the  rays 
of  gravity  water  wave  packets.  Further,  a  procedure  is  developed  for  com¬ 
puting  Che  wave  heights  along  the  paths  accounting  for  the  effects  of 
shoaling,  refraction,  and  energy  dissipation.  Both  a  variable  water  depth 
and  current  are  considered. 

There  are  a  number  of  papers  in  which  numerical  methods  are  presented 
for  calculating  and  plotting  Che  trajectories  of  monochromatic  rays. 

Skovgaard,  ec  al  (1975)  summarize  a  number  of  these  methods  and  present  one 
of  their  own.  The  numerical  methods  for  calculating  and  plotting  rays  which 
are  presented  in  this  work  are  based  on  the  Wilson  (1966)  program.  However, 
extensive  modifications  of  the  Wilson  program  were  required  in  order  to 
compute  the  path  of  a  wave  packet.  Wilson  did  not  consider  wave  heights. 

In  Chapter  II  equations  defining  the  trajectories  of  wave  packets  in 
a  current  are  presented.  An  expression  is  derived  for  Che  ray  curvature 
of  a  wave  packet.  The  Doppler  shift  in  the  frequency  of  the  waves  due  to 
a  current  is  considered.  Properties  of  the  packet  ray  curvature  are  dis¬ 
cussed  for  Che  particular  case  of  parallel  water  depth  contours  and  no 
currents.  The  methods  used  in  computing  the  wavelet  direction  are  described. 
The  numerical  procedure  for  locating  each  ray  point  is  discussed.  Rules 
for  dealing  with  reflection  points  due  to  water  depth  variations,  which 
occur  when  the  ray  curvature  becomes  infinite,  are  established.  The  con¬ 
dition  for  the  total  reflection  of  waves  due  to  a  current  is  presented. 

The  shoaling,  refraction,  and  friction  coefficients  used  to  compute 
the  wave  heights  are  described.  The  ray  separation  equation  is  discussed. 

.4n  analytical  solution  to  the  equation  is  presented  for  the  case  of  parallel 
wave  speed  contours.  In  the  program  a  numerical  method  is  used  to  solve  the 
ray  separation  equation.  This  method  is  discussed,  and  the  procedure  for 
dealing  with  reflection  points  is  described.  The  method  for  locating 
caustics  and  focal  points  is  explained.  Near  a  caustic  an  approximate 
solution  of  the  ray  separation  equation  is  used  in  the  calculations.  This 
solution  is  presented.  There  is  a  discussion  of  the  wave  breaking  criterion. 

The  variations  due  to  water  ocpth  and  currents  are  considered  separately. 
The  partial  derivatives  of  the  wave  speeds  are  related  to  the  corresponding 
water  depth  derivatives.  The  calculations  are  greatly  simplified  by  making 
them  in  a  x'y'-coordinate  system  which  is  chosen  so  that  at  each  ray  point 


Che  posicive  x'-axis  is  in  the  direction  of  the  gradient  of  the  water  depth. 

As  a  result,  the  first  partial  derivatives  of  the  water  depth  and  wave  speeds 
with  respect  to  y'-vanish.  Further,  there  is  a  simplification  in  the  second 
partial  derivatives  involving  y'.  In  a  similar  manner,  a  x"y' -coordinate 
system  is  used  to  determine  the  partial  derivatives  of  the  wave  speeds 
and  to  relate  them  to  the  variations  in  a  current.  The  positive  x"-a.xis 
is  taken  in  the  direction  of  the  gradient  of  the  current  speed.  This  results 
in  a  simplification  of  all  the  derivatives  involving  y" .  The  chapter  con¬ 
cludes  with  a  summary  of  Che  basic  equations. 

Chapter  III  contains  details  of  the  computer  program  and  a  program 
listing.  The  program  listing  contains  many  comments  to  explain  the  operation 
of  Che  program. 

Chapter  IV  contains  details  on  how  to  prepare  the  water  depth  and  current 
grids.  The  way  to  prepare  a  computer  run  is  explained,  and  the  printed 
output  is  described.  Both  the  printout  and  plots  are  illustrated.  Included 
are  the  results  for  sample  data  which  are  provided  so  that  a  user  can  test 
the  program. 

The  principal  notation  used  in  the  report  is  presented  following  the 
references . 


3 


CHAPTER  II  THEORY 


2.1  Trajectories  of  Gravity  Water  Wave  Packets.  In  this  section  a  niethod 
is  presented  for  determining  the  surface  trajectories  of  gravity  water  wave 
packets  considering  both  a  variable  water  depth  and  a  variable  current. 

a.  Ray  paths 

Arthur  (1950)  considered  the  trajectories  of  monochromatic  waves  in  a 
current.  His  method  is  easily  extended  to  determine  the  trajectories  of  wave 
packets  in  a  current.  The  ray  paths  are  defined  by 


—  =  iX,  +  C?  9 


(2-1) 


=.  +  G  9 


(2-2) 


where  x,y  are  the  Cartesian  coordinates,  t  is  time,  and  S  is  the  direction  of 
the  wave  packet  with  respect  to  the  positive  x-axis.  The  x-  and  y-components 
of  the  horizontal  component  of  the  current  velocity  are  denoted  by  u^  and  u 
where  u  is  the  current  speed.  The  geometric  group  speed  of  the  wave  packet^ 
relative  to  the  current  is  G.  The  ray  direction  P  is  defined  by 


W  p  - 


Vi>^.  \  G  9 

U.^  +  G  0 


(2-3) 


b.  Ray  curvature  for  wave  packets 

The  ray  curvature  <  of  a  ray  moving  with  phase  speed  v  over  a  variable 
bottom  topography  was  derived  by  Munk  and  Arthur  (1952)  and  Arthur,  et  al 
(1952)  as 


.  M _ LfAWv't 


(2-4) 


where  y  is  the  direction  of  the  monochromatic  wave  with  respect  to  the  positive 
x-axis  and  s  is  the  arc  length  along  the  ray. 

The  ray  curvature  for  the  trajectory  of  a  wave  packet  for  a  variable 
bottom  topography  is  given  by 


K 


jL9 


-  J_  ( Ai^e  —  - 

G  V  ax  ^ 


(2-5) 


where  ds^^  is  an  element  of  arc  length  along  the  ray. 

The  ray  curvature  expressions  are  readily  extended  to  include  variable  • 
currents.  For  monochromatic  rays  (Arthur,  1950) 


\ 


+ 


(2-6) 


A 


(2-7) 


where  e^  is  a  unit  vector  in  the  direction  of  y,  is  the  component  of  the  Hu-" 

current  in  the  direction  of  y,  and  v  is  the  phase  speed  relative  to  the  current. 

For  wave  packets 


aaav,  9 


+ 


U 


(2-8) 

(2-9) 


where  e  is  a  unit  vector  in  the  direction  of  0  and  u  is  the  component 
of  the  current  in  the  direction  of  9. 

The  geometric  group  speed  is  defined  (Breeding,  1978) 


G  —  U 


(2-10) 
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where 


u  -  — 

3A- 


(2-11) 


4>  =  e  -  'i 


(2-12) 


and  U  is  the  conventional  (collinear)  group  speed.  The  angular  frequency 
0)  »  ZTTf,  f  =  1/T  is  the  frequency,  and  T  is  the  wave  period.  These  quantities 
are  all  defined  relative  to  the  current  where 


CO  =  CO,  -  Jt*  a 


(2-13) 


and  is  the  angular  frequency  in  a  fixed  coordinate  system  relative  to  the 
water  bottom.  The  wave  number  k  =  2~/''  and  ■  is  the  wavelength. 

The  first  partial  derivatives  of  G  are  determined  using  Equation  (2-10). 


^  -  ILL  - 


\J  Aivv,  ^ 


(2-14) 


vj  ii 


(2-15) 


Through  the  use  of  Equation  (2-8)  the  spatial  derivatives  of  9  are  taken 
to  be 


09  _  9  (  0G  I  9^>wv. 


+  u.„ 


—  ~  Q  /  0G  I 

”  (3  +  CJW  ) 


(2-16) 


(2-17) 
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In  like  manner,  from  Equation  (2-6)  it  is  found  that 


3Y  _ 

ax  ■  “*■  3X  j 

^  _L 

3'^  "  \r^  9'^  J 


(2-13) 

(2-19) 


When  Equations  (2-16)  and  (2-18)  are  substituted  into  Equation  (2-14)  and 
the  terms  are  rearranged,  it  is  found  that 

ax  V  6  +  vx^  y  \ax  ^[at+u^V^x  ax; 

9  a  Uvw,. 

<j  +  3X 

The  substitution  of  Equations  (2-17)  and  (2-19)  into  Equation  (2-15)  leads  to 

u-iu  .  .  X  .  1  ^  aiw 


(2-20) 


36 

3'^ 


U 

<3  + 


U 


_  <u>tV  ,  a^A.^ 


(2-21) 


In  the  event  there  are  no  currents  Equations  (2-20)  and  (2-21)  reduce  to 


ax 


\  +  >A^.^ 


VJL=  0 


(2-22) 


36  _  9^  ^  ^  0 

1  -  %/f^  (iot  9 


(2-23) 


In  the  computations  it  is  convenient  to  separate  out  the  variations  due 
to  water  depth  and  the  variations  in  frequency  due  to  a  variable  current.  As 
a  result,  if  only  one  of  the  types  of  variation  is  being  considered  the 
equations  associated  with  the  other  type  of  variation  can  be  ignored.  The 
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ray  curvature  for  the  wave  packet  is  expressed  as 


where  the  subscript  h  denotes  terms  in  which  a  variation  in  water  depth  is 
considered,  and  the  subscript  jj  refers  to  terms  in  which  changes  in  current 
are  accounted  for. 

Since  the  wave  packet  and  the  ray  travel  with  different  velocities, 
the  incremental  distances  by  which  they  advance  for  a  given  time  interval 
are  different.  The  wave  packet  incremental  distance  must  extend  to  the  same 
wave  speed  contour  reached  by  the  ray.  This  is  illustrated  in  Figure  (2-1) 
where  the  wave  speed  contours  are  assumed  to  be  locally  parallel.  From  the 
figure,  it  is  seen  Chat 


(SL^ 


- 

^  ~  9 


(2-25) 


c.  Properties  of  the  wave  packet  ray  curvature 

The  ray  curvature  of  a  wave  packet  has  been  examined  (Breeding,  1981) 
for  Che  case  of  parallel  water  depth  contours  and  no  currents.  If  the  water 
depth  contours  are  parallel  to  the  y-axis  the  packet  ray  curvature  becomes 


\  OVJ  ,  WX 

_  U  3X  -vr  ax 

<!Ac./e  + 


From  this  expression  it  is  found  that  refraction  causes  a  wave  packet  tra¬ 
jectory  to  become  directed  either  parallel  or  perpendicular  to  the  water 
depth  contours.  In  either  case  the  packet  ray  curvature  will  vanish.  For 
wave  packets  propogating  toward  deep  water,  if  the  initial  direction  exceeds 
a  critical  angle  total  reflection  occurs.  At  the  reflection  point  the  wavelet 
direction  becomes  parallel  to  the  wave  speed  contours,  the  wave  packet 
direction  becomes  perpendicular  to  the  contours,  the  geometric  group  velocity 
goes  to  zero,  and  the  packet  ray  curvature  becomes  infinite. 


9 


d.  Wavelet  direction 

Both  the  wave  packet  and  wavelet  directions  must  be  computed  in  deter¬ 
mining  each  point  of  a  ray  path.  When  variations  occur  in  both  the  water 
depth  and  a  current  the  change  in  the  wavelet  direction  is  computed  using 
the  wavelet  ray  curvature  expression.  It  is  found  that  the  change  in 
wavelet  direction  is  given  by 


ax  )  ^ 


(2-27) 


where  is  the  ray  speed  and  It  is  the  time  step  interval  between  ray 
points.  The  variations  due  to  water  depth  and  current  are  considered 
separately.  In  Equation  (2-27)  Che  difference  in  the  incremental  distances 
which  rays  and  wavelets  advance  for  a  given  2c  has  been  taken  into  account. 

The  wavelet  direction  can  be  calculated  using  Snell's  law  with  phase 
velocity.  This  approach  has  been  found  to  be  both  more  accurate  and  to 
require  fewer  calculations  in  locating  the  next  ray  point  chan  when  the  ray 
curvature  e:<pression  is  used  to  compute  the  wavelet  direction.  Accordingly, 
if  variations  are  to  be  considered  only  in  the  water  depth  or  a  current, 
but  not  both,  Snell's  law  is  used  to  compute  Che  wavelet  direction. 

In  order  to  use  Snell's  law,  the  incident  wavelet  angle  is  defined  with 
respect  to  the  normal  to  the  wave  speed  contours  which  is  extended  in  the 
direction  of  increasing  wave  speed.  The  wave  speed  contours  are  assumed 
to  be  locally  parallel  about  the  ray  point.  In  the  computations  a  number 
of  rules  are  employed  where  the  subscripts  n  and  (n  +  1)  refer  to  con¬ 
secutive  points  of  a  ray  and  n  is  a  positive  integer.  The  first  step,  if 
necessary,  is  to  successively  add  or  subtract  360°  from  the  incident  wavelet 
angle  until  it  is  within  the  range  0  <  Y  <  360°.  Then  when  Snell's  law  is 
given  by 


(2-28) 


where  -90°  <  90°,  the  angle  is  defined  by  the  following  scheme. 


1 


V*,  , 

.ifco”  +  V.I*  , 


V  5  ^0 
10°  <  V  -  Mo‘ 
>  n  0° 


(2-29) 
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e.  Determining  the  path 

Successive  points  of  a  ray  are  found  by  iteration  using  the  ray 
curvature  expression  for  a  wave  packet.  The  wavelet  direction  is  determined 
at  each  point  along  the  ray.  The  coordinates  of  each  ray  point  are  defined  by 


where 


^  ^  (2-33) 


(2-30) 


(2-31) 


and  where  £  is  the  direction  of  the  current  with  respect  to  the  positive 
x-axis.  Further 


9  =  (2-34) 

V+,-e;^+M  (2-35) 

=  i[UoV+  (2-36) 
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v= 


_  6ft(AO 

GRin 


(2-37) 


where  D  is  the  incremental  distance  in  grid  units  between  the  points  n 
and  (n  1)  of  a  ray,  GRID  is  the  grid  unit  distance  in  units  consistent 
with  G,  and  i-t  is  the  time  step. 

f.  Reflection  points  for  water  depths 

Reflection  points  due  to  variations  in  water  depth  require  special 
consideration.  The  waves  are  assumed  to  reflect  if  any  of  three  criteria 
are  satisfied.  The  first  test  for  reflection  is  based  on  Snell's  law 
with  phase  velocity.  Reflection  occurs  if 


\  >  \ 


(2-38) 


The  wavelet  angle  is  defined  with  respect  to  the  normal  to  the  wave  speed 
contour  which  is  extended  in  the  direction  of  increasing  water  depth. 

.A.S  a  reflection  point  is  approached  the  ray  curvature  changes  so  quickly 
that  calculations  of  the  ray  curvature  by  iteration  may  cease  to  converge. 

If  convergence  fails  reflection  is  assumed  if  the  following  conditions 
are  met . 


>  1 


(2-39) 


1  wy  1  >  W  so' 


The  first  condition  requires  that  the  phase  speed  increases  between  the  last 
two  ray  points,  and  the  second  condition  requires  that  the  wavelet  direction 
be  consistent  with  total  reflection. 

A  third  criterion  is  used  to  specify  reflection  points  in  order  to 
maintain  accuracy  in  calculating  the  ray  trajectory.  Very  near  a  reflection 
point,  due  to  the  rapidly  changing  ray  curvature,  the  estimates  of  ray 
points  can  become  erratic.  Therefore,  reflection  is  assumed  if  the  following 
conditions  are  met 


1  I 


(2-40) 
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When  a  reflection  point  is  determined  on  the  basis  of  either  the  second 
or  third  criterion,  it  is  advisable  to  examine  the  printout  to  determine  if 
the  ray  particulars  are  consistent  with  total  reflection.  The  values  of 
the  packet  ray  curvature,  the  wavelet  direction,  the  packet  direction,  and 
the  geometric  group  velocity  should  exhibit  the  behavior  described  in 
Section  (2.1),  c . 

When  a  reflection  occurs  there  is  an  option  either  to  halt  the  ray  tra¬ 
jectory  or  to  continue  it  as  a  reflection.  When  the  reflection  option  is 
chosen,  the  reflection  angles  (defined  with  respect  to  the  normal  to  the 
water  depth  contour)  are  determined  by  the  relations 


1%0*  (2-41) 

Qa  ~  “  Q'l  ^  (2-42) 

+  U0“  (2-43) 


The  subscript  r  denotes  the  reflection  angles,  and  the  subscript  i  signifies 
the  angles  at  the  last  ray  point  reached  prior  to  where  the  reflection  criterion 
is  satisfied. 

The  ray  curvature  calculations  are  more  likely  to  converge  and  the 
accuracy  of  the  path  is  increased  if  there  is  a  restriction  on  how  much  the 
ray  direction  can  change  between  successive  ray  points.  Accordingly,  if 
V  is  within  10°  of  a  direction  for  which  the  ray  curvature  is  infinite,  and 
r  is  within  75°  of  being  perpendicular  to  the  water  depth  contour,  the  time 
step  between  ray  points  is  successively  halved,  as  necessary,  until  l2i0l 
is  less  than  1°.  In  the  event  it  is  necessary  to  reduce  the  time  step  to  less 
than  0.5  seconds  the  ray  is  stopped. 

g.  Total  reflection  for  currents 

Total  reflection  due  to  variations  in  a  current  is  determined  on  the 
basis  of  Snell's  law  for  the  wavelets.  Reflection  occurs  if 


>  1 


(2-44) 


■<  *  • 


where  the  wavelet  angle  is  defined  with  respect  to  the  normal  to  the  wave 
speed  contour  which  is  extended  in  the  direction  of  increasing  current  speed. 


2.2  Wave  Height  Calculations.  .Modification  of  the  wave  height  due  to 
refraction,  shoaling,  and  energy  dissipation  is  considered.  The  wave  height 
H  increases  when  adjacent  rays  converge  and  it  decreases  when  the  rays  diverge; 
this  effect  is  accounted  for  by  the  refraction  coefficient  K^.  The  shoaling 
coefficient  accounts  for  the  change  in  H  due  to  the  variation  in  the 
propagation  speed  of  the  wave  packet.  The  loss  in  energy  due  to  wave  motion 
at  the  sea  bottom  is  determined  bv  the  friction  coefficient  K_. 


Without  energy  dissipation 

The  average  rate  of  energy  transmission  F  can  be  defined 


f  = 


(2-45) 


where  G.j^.  =  G  +  u^,  E  is  the  energy  per  unit  area,  and  is  the  perpendicular 
distance  between"' rays .  Mote  t'nat  G.,.  is  the  speed  of  the  advected  crtup 
front.  The  energy  is  assumed  to  be  conserved  along  the  ray.  Therefore 


^  =  F- 


(2-46) 


where  j  and  (j  +  1)  denote  ^onsecutive  ray  points.  It  is  further  assumed 
that  E  is  proportional  to  H  .  Accordingly,  it  follows  from  Equations 
(2-45)  and  (2-46)  that 


(2-47) 


where  (K^)  and  (^j^)  .^2^  are  the  shoaling  and  refraction  coefficients, 

respective!^,  between  piints  j  and  ( j  +  1) . 


(2-48) 


(2-49) 
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If  Hq  is  the  initial  wave  height,  then  the  wave  height  at  the  n-th 
point  is 


H 


/A. 


where 


(2-50) 


(2-51) 

(^-52) 


b.  Vith  energy  dissipation 

To  account  for  energy  losses,  Equation  (2-«6)  can  be  restated 


+  » 


■i+l 


(2-53) 


where  (Kp)  is  the  friction  coefficient  between  the  points  j  and  (j  +  1)  . 
As  a  resul-i,  "^the  relationship  between  the  wave  heights  at  consecutive  ray 
points  can  be  expressed  by 


(2-54) 


In  terms  of  the  initial  wave  height,  the  wave  height  at  the  n-th  point  is 
given  by 


(2-55) 
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where 


K 


CKp')|  (Kp)^*  •  •  C^p)/n.  " 


C^F^/wv^'^F^/w 


(2-56) 


2.3  Refraction  Coefficient, 
define 


In  computing 


it  is  convenient  to 


(i 


(2-57) 


where  2  is  called  the  ray  separation  factor.  Equation  (2-52)  for  the  re¬ 
fraction  coefficient  becomes 


►  *  • 


t  v»* 


a.  Ray  separation  equation 

In  considering  the  refraction  of  monochromatic  waves,  Munk  and  .Arthur 
(1952)  have  shown  that  3  can  be  determined  from  a  second-order  differential 
equation  called  the  ray  separation  equation.  The  equation  can  be  stated 


+  =  0 


(2-59) 


where  t  is  time.  For  monochromatic  waves  with  no  currents 


[-• 


(2-60) 


5  “  ^  3X^  3X3^  ^ 


H' 


For  a  wave  packet  trajectory  with  currents 


—  4- 

n  3^  >*1 


% 


=  G. 


r  ■  »-o/3‘s 

®V5)? 


,  {ik.  +  sV' 

+  ^®Uf + 


(2-62) 


(2-63) 


As  in  the  case  of  computing  the  ray  curvature  (Section  (2.1),  b) ,  it  is 
convenient  to  separate  out  the  variations  due  to  water  depth  and  a  current. 


if.= 


4^)  + 

/9^  ,  9u^^■'  " 

I  3vl  “ 


f 

+  Ai-6  (||  +  4^)^^ 


%  =  G-rU^*"' 


e  ^  «  9^AiAs.  0  <UA,0 


3!^’t  h  '■ 


(2-64) 


(2-65) 
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b.  Solution  for  parallel  water  depth  contours 

There  is  a  simple  solution  to  Equations  (2-59),  12-62),  and  (2-63) 
when  the  water  depth  contours  and  current  contours  are  mutually  parallel. 
Then,  when  the  xy-coordinate  system  is  chosen  with  the  x-axis  perpend¬ 
icular  to  the  contours,  it  can  be  shown  that 


'  0X^00 


(2-66) 


where  the  subscript  o  denotes  the  initial  value  and  the  subscript  n  depicts 
the  value  at  the  n-th  ray  point.  The  time  derivative  of  Equation  (2-66) 
can  be  expressed 


c.  Numerical  solutions  of  the  ray  separation  equation 

Several  numerical  methods  can  be  used  to  solve  the  ray  separation  equation. 
An  easy  to  use  fourth  order  finite  difference  solution  to  Equation  (2-59) 
is  the  Fox  method  (Salvadori  and  Baron,  1961).  However,  this  method  has  the 
disadvantage  that  the  time  step  must  be  constant  between  successive^  ray 
points.  When  p  and  q  do  not  change  much  between  ray  points,  the  general  solu¬ 
tion  of  a  homogeneous  second-order  differential  equation  with  constant  coef¬ 
ficients  (Wylie,  1951)  can  be  used  to  solve  the  ray  separation  equation. 

This  solution  has  3  cases  depending  on  the  value  of  (p“  -  ^q).  The  value 
of  3  at  each  new  ray  point  is  found  using  the  values  of  p  and  q  at  the  last 
point.  There  is  usually  little  difference  between  the  results  obtained  by 
this  method  and  the  Fox  method. 

A  numerical  method  which  does  not  require  a  constant  time  step  and 
which  better  accounts  for  the  variation  of  p  and  q  along  a  ray  is  the  Runge- 
Kutta  method.  This  method  is  stable.  It  is  also  self-starting,  i.e.,  values 
at  the  previous  point  are  used  to  find  values  at  the  next  point  (Romanelli, 
1960).  For  these  reasons,  the  Runge-Kutta  method  was  selected  for  the  solution 
of  the  ray  separation  equation. 

In  order  to  use  the  Runge-Kutta  method.  Equation  (2-59)  is  reduced  to 
a  system  of  first-order  equations. 


\X 


N 


(2-68) 


h] 


Both  fourth  and  fifth  order  solutions  of  o  are  obtained.  The  initial  con¬ 
ditions  are  the  values  of  S  and  d£/dt  at  the  first  ray  point.  The  latter  is 

estimated  using  Equation  (2-67) .  The  solutions  require  the  values  of  (p  ,  q  ) 
at  the  n-th  ray  point  and  the  values  (p  the  (n+l)-th  ray  point. 

Further,  the  values  of  (p^,  q^) ,  (p2,  q2^.  (P3?  q^).  (p^.  q^) .  and  (p  ,  q.) 

are  needed  along  the  ray  at  points  intermediate  to  the  ray  points.  They  are 
determined,  respectively,  at  time  inteir/als  of  (f.t)/3,  (lt)/4,  0.45573725 
(It),  2(At)/3,  and  0.8  (fit)  beyond  the  n-th  ray  point  where  It  is  the  time  step 
in  the  calculations. 

A  fourth  order  Runge-Kutta  method  with  a  minimum  truncation  error  bound 
is  given  by  Ralston  (1962).  The  solution  for  the  ray  separation  equation 
becomes 

+  0.n^l(,0  3LS  K,  -  0.  5514-SOfcbK^ 

+  L;L0SS35b0  K3  +  C2-7 

(<g-M  -  (^]  +  0. 

//A.+  I  V  //A. 

+  \.9LOS5'35bO  L3  +  0.nil^M-7%L.^ 
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+0.I5ST5U^L^] 


t,  =  -C^t) 


^5^^)^+  0.3-U<nil,l  L,  +  0,I5?15U+L^') 


+  %3(^/^+  O.M(.<n7(,l  K,  +  0.l5?75‘1b4-Kj.)] 
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K,^=  +  O.SLISIOO^OL,  -  3.05oqc,5lt 

+  3.  Lj  I  (2-78) 

L^  =  -C/it.)[t/v.+  i((ir)^  +  0.^!S100M-OL,-3.050U5lbL3_ 

+  3.%3SL^(o4-7GL3^)  +  %^+i  +  0. 9.1%!  00^-0  K^ 

-  3).05  0U5lfe  Kg,+  S.SSP-S^H-lb  Kj)] 


A  disadvantage  of  the  Runge-Kutta  method  is  that  there  is  no  simple  means 
for  estimating  the  truncation  error  (Milne,  1953).  One  procedure  for  control¬ 
ling  the  error  is  to  compute  both  fourth  and  fifth  order  solutions  of  3  and 
to  adjust  the  time  step  so  that  the  two  estimates  differ  by  less  than  an 
arbitrary  amount. 

A  fifth  order  Runge-Kutta  method  is  given  by  Milne  (1953).  The  fifth 
order  solutions  for  2  and  dS/dt  are 


/  \  \ 
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(2-80) 


(2-81) 
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The  difference  between  the  fourth  and  fifth  order  solutions  of  S  and  dg/dt 

are 


In  the  calculations,  with  the  exception  of  when  near  reflection  points,  both 
js,]  and  ISq  I  are  monitored.  If  either  is  greater  than  or  equal  to  an  arbitrary 
constant  (determined  as  an  input  parameter)  the  time  step  is  halved,  the  cor¬ 
responding  (n  +  1  )-th  ray  point  is  found,  and  the  B  and  d6/dt  calculations  are 
repeated.  This  process  continues,  as  necessary,  until  both  ISg,  and  |eg^l 
are  less  than  the  arbitrary  constant.  If  the  time  step  is  reduced  to  less  than 
0.5  seconds  the  ray  is  stopped. 

d.  Reflection  points 

The  numerical  solutions  of  the  ray  separation  equation  have  not  proved 
satisfactory  when  leaving  a  reflection  point.  This  is  possibly  due  to  the 
rapid  changes  in  p  which  becomes  infinite  at  the  reflection  point.  However, 
as  the  reflection  point  is  approached  the  value  of  B  approaches  a  constant. 
Therefore,  if  the  reflection  option  is  chosen,  the  value  of  3  is  held  constant 
in  the  calculations  if  the  wavelet  direction  is  within  10°  of  being  parallel 
to  the  water  depth  contours.  After  passing  the  reflection  point.  Equation 
(2-67)  is  used  to  estimate  dB/dt  for  restarting  the  Runge-Kutta  calculations. 

If  the  reflection  option  is  not  chosen  the  calculations  of  3  continue  up  to  the 
reflection  point.  As  a  result,  by  choosing  this  option  it  is  possible  to 
determine  the  value  of  S  at  a  reflection  point. 


e.  Caustics  and  tocal  points 


The  value  of  £  is  tionitored  along  a  ray.  If  the  value  of  i  becof.es  less 
than  0.0001  (K^  greater  than  100)  it  is  assumed  that  a  focal  point  or  caustic 
has  been  located.  In  this  case  the  ray  is  stopped. 

Near  a  caustic  the  ray  separation  equation  is  given  approximately  by 


(2-94 


In  order  to  improve  calculations  near  a  caustic,  if  variations  are  considered 
in  only  water  depth  or  currents,  but  not  both.  Equation  (2-94)  is  used  in  computing 
3.  For  negative  values  of  q  the  solution  to  this  equation  is 


(3  r 


If  the  packet  direction  is  within  5®  of  being  parallel  to  the  wave  speed  contours 
Equation  (2-96)  is  used  to  evaluate  d8/dt. 

Very  small  or  large  values  of  K^^should  be  viewed  with  caution.  The  values 
may  be  incorrect  due  to  numerical  Inaccuracies  in  the  calculations.  This  can  be 
checked  by  examining  the  behavior  of  adjacent  rays  on  a  plot.  For  large 
values  the  rays  should  converge  closely  and  for  small  values  of  the  rays 
should  widely  diverge.  It  is  probably  best  to  view  K^values  less  than  0.2  and 
greater  than  5  in  a  qualitative  sense. 
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2. A  Friction  Coefficient.  Energy  dissipation  of  the  waves  due  to  bottom 
friction  is  considered.  The  friction  coefficient  is  determined  using  a  method 
based  on  the  theory  of  Putnam  and  Johnson  (19A9)  and  Bretschneider  and  Reid 
(195A).  Other  energy  dissipation  methods  can  be  substituted  if  desired. 

In  this  work  the  friction  factor  c,  is  defined  following  Jonsson  (1966) 


U 


(2- 


j 


where  T  is  the  tangential  stress  per  unit  area  at  the  bottom,  is  the 
density  of  the  fluid,  and  u,^  is  the  maximum  velocity  of  the  fluid  at  the  bottom. 
The  definition  for  T  given  by  Putnam  and  Johnson  (19A9)  does  not  contain  the 
factor  h.’  When  Equation  (2-97)  is  used  the  friction  coefficient  becomes 
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_ C^p)/yyv. _ 
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where  (K^.)  is  defined  by  Equation  (2-56),  (-s  )^_^^  is  the  incremental  dis¬ 
tance  between  the  ray  points  n  and  (n  +  1) ,  ana 


3 


(2-99) 


2.5  Wave  Breaking  Criterion.  In  the  program  there  is  an  option  to 
determine  if  the  waves  break.  When  this  option  is  chosen,  the  waves  are 
assumed  to  break  when  the  following  relation  is  satisfied. 
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2.6  Spatial  Derivatives  of  G,  U,  v,  and  h  for  Water  Depths.  In  this 
section  relations  are  presented  for  connecting  the  partial  derivatives  of 
G,  U,  V,  and  the  water  depth  h.  Only  variations  in  water  depth  are  con¬ 
sidered.  .4  current  is  assumed  to  be  either  constant  or  not  to  exist.  The 
spatial  derivatives  are  determined  in  a  coordinate  system  where  the  first 
order  y-partial  derivatives  vanish  and  the  second  order  y-derivatives  are 
reduced  to  simplified  expressions.  .4s  a  result,  there  is  a  reduction  in  the 
number  of  calculations  which  would  otherwise  be  required. 

a.  Determination  of  h  and  its  partial  derivatives 

For  each  ray  point  the  water  depth  h  is  interpolated  from  a  quadratic 
surface  equation  which  is  fitted  to  the  water  depths  at  12  grid  points  as 
illustrated  in  Figure  (2-2) .  The  use  of  a  quadratic  surface  makes  it 
possible  to  evaluate  second  derivatives  which  are  required  in  calculating  the 
wave  height.  The  surface  is  approximated  by  the  general  quadratic  equation 
(Dobson,  1967) 


^  =  E  I  -V  E^\  +  (2-101) 


where  the  coefficients  E  are  determined  by  fitting  the  equation  by  the 
method  of  least  squares  to  the  12  water  depth  values.  The  partial 
derivatives  of  h  are  readily  determined  from  Equation  (2-101) . 


= 


I  2-106) 


b.  Rotation  or  axes  to  make  computations 

At  each  point  of  a  wave  packet  trajectory  the  calculations  are  made 
in  a  x'y '-coordinate  system  where  the  x'-axis  is  taken  in  the  direction  of  the 
gradient  of  the  water  depth.  The  particulars  of  a  trajectory  are  tabulated 
in  a  xy-coordinate  system  which  retains  a  fixed  orientation  with  respect 
to  the  water  depth  grid.  The  relationships  between  these  coordinate  systems 
and  a  specific  ray  point  for  a  set  of  nonparallel  water  depth  contours  are 
shown  in  Figure  (2-3) .  Equations  relating  these  coordinate  systems  are  given 
bv 
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where  a  is  the  angle  by  which  the  x'-axis  is  rotated  with  respect  to  the 
X-axis  and  h  is  the  water  depth.  Note  that 
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The  partial  derivatives  of  h  in  the  x 'y ' -coordinate  system  with  respect 
to  the  partial  derivatives  of  h  in  the  xy-coordinate  system  are  given  by 
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c.  Derivatives  of  v 

As  a  convenience  in  the  computations,  the  spatial  derivatives  of  v 
are  expressed  in  terms  of  the  spatial  derivatives  of  h.  For  linear  theory 
(Lamb,  1932)  the  phase  speed  of  a  gravity  water  wave  can  be  defined 
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(2-118) 
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where  g  is  the  acceleration  due  to  gravity.  The  first  partial  derivatives 
of  V  in  the  x 'y ' -coordinate  system  are  given  by  (Wilson,  1966;  Dobson,  1967; 
Breeding,  1972) 
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where 
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The  second  partial  derivatives  of  v  are  defined  by 
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d.  Derivatives  of  U 

For  linear  wave  theory  the  collinear  group  speed  of  a  gravity  water 
wave  can  be  defined 
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The  first  partial  derivatives  of  U  in  the  x'y '-coordinate  system  are 
given  by 
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where 
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The  second  partial  derivatives  of  U  are  given  by 
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e.  Derivatives  or  G 

The  first  partial  derivatives  of  G  were  derived  in  Section  (2.1), b  as 
Equations  (2-22)  and  (2-23).  In  the  x 'v ' -coordinate  system  these  derivatives 
become 
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The  second  partial  derivatives  of  G  can  be  expressed  by 
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2.7  Spatial  Derivatives  of  G,  U,  v,  u,  and  •:  for  Currents.  In 
this  section  relations  are  presented  for  connecting  the  partial  derivatives 
of  G,  U,  v,  and  a  current  of  magnitude  u  and  direction  i .  The  water 
depth  is  assumed  to  be  constant.  The  spatial  derivatives  are  determined  in 
a  coordinate  system  where  the  y-derivatives  are  reduced  to  simplified  expres¬ 
sions.  This  results  in  a  corresponding  reduction  in  the  number  of  computations. 

a.  Determination  of  u,  £,  and  their  partial  derivatives 

For  each  ray  point  the  current  components  u  and  u  are  interpolated 
from  quadratic  surface  equations  which  are  fitted  to  their  respective  current 
component  values  at  12  grid  points  as  described  for  water  depths  in  Section 
(2,6),  a.  The  resulting  quadratic  equations  are 
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and  the  current  direction  is  defined  by 
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The  partial  derivatives  of  u  and  u  are  found  from  Equations  (2-151) 
(2-152).  ^  ^ 
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The  partial  derivatives  of  u  are  found  to  be  given  by 
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The  partial  derivatives  of  £  are  determined  to  be 
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b.  Rotation  of  axes  to  make  computations 

Following  the  procedure  described  in  Section  (2.6),b  for  water 
depths,  the  calculations  are  made  in  a  x''y"-coordinate  system  where  the 
x"-axis  is  taken  in  the  direction  of  the  gradient  of  the  current  speed. 

The  ray  particulars  are  tabulated  in  the  xy-coordinate  system  which  is  fixed 
with  respect  to  the  current  grids.  The  equations  which  relate  these  coordinate 
systems  are  expressed  by 
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where  a  is  the  angle  by  which  the  x"-axis  is  rotated  with  respect  to  the 
x-axis .  Further 
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The  partial  derivatives  of  u  in  the  x"y"-coordinate  system  with  respect 
to  the  partial  derivatives  of  u  in  the  xy-coordinate  system  are  given  by 
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The  relations  connecting  the  partial  derivatives  of  £  between  the  two 
coordinate  systems  are  given  by 
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c.  Derivatives  of  jJ,  v,  and  u^ 

In  Section  (2.6),  c  the  derivatives  of  v  are  expressed  directly  in  terms 
of  the  corresponding  derivatives  of  water  depth.  In  considering  currents 
the  derivatives  of  v  are  related  to  derivatives  in  -o.  For  the  first  x"- 
derivatives  it  is  found  that 
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The  first  y"-derivatives  can  be  expressed 
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where 
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The  second  x"-derivacives  are  determined  to  be 
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The  second  derivatives  with  respect  to  y"  become 
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The  mixed  derivatives  can  be  stated  as 
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Note  that  ”,  and  I  are  defined  che  same  as  in  Section  (2.5),  d. 
The  second  spatial  derivatives  of  U  are  given  by 
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e.  Derivatives  of  G  and  u 

m 

The  first  partial  derivatives  of  G  are  considered  in  Section  (2.1),  b. 
It  is  necessary  to  consider  the  derivatives  of  G  and  together.  For 
the  first  x''-derivatives  it  is  found  that 
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The  y"-derivatives  can  be  stated  as 
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The  second  derivatives  with  respect  to  y"  are 


3  _|'i-_l9_\  £U_  _  12^8.  ILL 

+  e||)  +  I,G, +  UAi-W®''(l|') 


(2-250) 


(2-251) 


(2-252) 


(2-253) 


where 


^3  = 


-rA. 


1.(3^")' 

+  Uw  Aj^  C®  “  ^  ^  (i<A  6 


H 


ii! 


t1  \^ 


+ 


9€ 


llNJ- 


C3V')' 


36 

n" 


^  6  {  3^  j_ 

H") 


ad)  _  3e"  aw" 

3^"  -  3^"  3i' 


The  mixed  derivatives  can  be  stated  as 
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2.8  Summary  of  Basic  Equations.  In  the  x'y'-  and  x"y"-coordinate  systems, 
Equation  (2-24)  for  the  ray  curvature  of  the  wave  packet  becomes 


Equation  (2-25),  which  defines  the  ratio  of  the  incremental  distances  of 
the  wave  packets  and  rays,  is  applied  separately  to  the  calculations 
accounting  for  water  depth  and  current  variations. 

Equation  (2-27)  for  the  change  in  wavelet  direction  becomes 


p" 
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When  the  wavelet  direction  is  computed  using  Snell's  law,  the  x 'y ' -coordinate 
system  is  the  natural  system  to  use  for  variations  in  water  depth,  and  the 
x"y"-coordinate  system  is  used  for  changes  due  to  currents.  Snell's  law  is 
stated  in  Equations  (2-28)  and  (2-29).  The  Doppler  shifted  frequency,  due 
i  to  a  current,  is  defined  by  Equation  (2-13). 

[  The  wave  height  is  given  by  Equation  (2-54) .  The  shoaling  coefficient 

is  defined  by  Equation  (2-51),  whereas  the  friction  coefficient  is  defined 
tJ  by  Equations  (2-98),  (2-99),  and  C2-56) .  The  refraction  coefficient  is 


53 


determined  as  a  function  of  3  using  Equation  (2-58) .  The  ray  separation 
factor  3  is  determined  by  solving  Equation  (2-59)  where 
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In  the  x'y '-coordinate  system  3h/3y'  =0.  As  a  result  the  first  partial 
derivatives  of  the  wave  speeds  with  respect  to  y'  vanish,  and  there  is  a 
simplification  in  the  second  derivatives  involving  y'.  In  the  x"y"-coordinate 
system  3u/3y"  =  0.  This  results  in  a  simplification  of  all  the  derivatives 
involving  y".  However,  the  first  partial  derivatives  of  the  speeds  do  not 
vanish  unless  3£'/3y"  =  0- 
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CHAPTER  III  THE  COMPUTER  PROGRAM 


3.1  Introduction  to  the  Computer  Program.  Including  the  arrays  the 
computer  program  requires  approximately  580,000  bytes  of  storage.  Of  this 
amount,  the  arrays  CMA.T,  CURX,  CURY,  AX,  and  ,A.Y  occupy  about  187,000  bytes 
of  storage. 

The  input  and  output  directions  of  the  wave  packets,  wavelets,  and 
currents  are  defined  as  the  directions  from  which  tho  waves  and  currents  come 
with  respect  to  true  north.  Before  making  calcula*"'  -ns  these  angles  are  trans¬ 
formed  using  the  following  relationships 


CNVRSA  -  + 

J-bU 

(3-1) 
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(3-2) 

CNVRSA  -  + 

180 

(3-3) 

where  the  subscript  C  refers  to  the  calculation  coordinate  system,  the  sub¬ 
script  fl  denotes  the  true  north  coordinate  system,  and  CNVRSA  is  the  direction 
of  the  positive  x-axis  of  the  grids  with  respect  to  true  north.  The  angles 
are  in  degrees . 

The  program  listing  contains  information  on  the  input  and  output  devices 
used  in  running  the  program.  All  the  input  and  output  parameters  are  defined. 
A  description  is  given  of  the  subroutine  structure.  Notes  are  provided  on 
the  plotting  software  which  is  used.  The  use  of  double  precision  in  the 
calculations  is  discussed.  Numerous  comments  are  included  to  explain  the 
operation  of  the  program. 


3.2  Listing  of  the  Computer  Program. 


001  PROGRAM  UAOPAK 

002  C 

003  C  THIS  IS  A  PROGRAM  FOR  CALCULATING  ANU  PLOTTING  THE  PATHS  OF  SURFACE 
004  C  GRAVITY  HATER  HAVE  PACKETS  AND  FOR  CALCULATING  THE  HAVE  HEIGHTS  ALONG 
005  C  THESE  PATHS  CONSIDERING  HATER  DEPTHS  AND  CURRENTS.  THE  EFFECTS  OF 
006  C  SHOALING*  REFRACTION*  AND  ENERGY  DISSIPATION  ARE  ACCOUNTED  FOR. 

007  C 

008  C  THE  PROGRAM  HAS  COMPLETED  SEPTEMBER  1982  UNDER  A  CONTRACT  HITH  THE 
009  C  COASTAL  SCIENCES  PROGRAM*  OFFICE  OF  NAVAL  RESEARCH.  THE  PROGRAM  HAS 
010  C  PREPARED  BY 
Oil  C 

012  C  J.  ERNEST  BREEDING*  JR 

013  C  SHELLEY  KAY  HORTON 

014  C  DEPARTMENT  OF  OCEANOGRAPHY  AND  OCEAN  ENGINEERING 

015  C 

016  C  MICHAEL  C.  NEHELL 

017  C  INTERACTIVE  COMPUTING  FACILITY 

018  C 

019  C  FLORIDA  INSTITUTE  OF  TECHNOLOGY 

020  C  MELBOURNE*  FL  32901 

021  C  USA 

022  C 

023  C  THIS  PROGRAM  IS  BASED  ON  A  PROGRAM  FOR  COMPUTING  THE  PATHS  OF  MONOCHROMATIC 
024  C  RAYS  DUE  TO  VARIATIONS  IN  HATER  DEPTH  BY 
025  C 

026  C  y.  STANLEY  WILSON*  ‘A  METHOD  FOR  CALCULATING  AND  PLOTTING  SURFACE 

027  C  HAVE  RAYS**  TECHNICAL  MEMORANDUM  NO*  17*  COASTAL  ENGINEERING 

028  C  RESEARCH  CENTER*  57  PP.  (1966)  (AD-636-771). 

029  C 

030  C  HITH  THE  EXCEPTION  OF  THE  PLOTTING  SUBROUTINES*  THE  HILSON  PROGRAM  HAS 
031  C  EXTENSIVELY  MODIFIED  IN  ORDER  TO  COMPUTE  THE  PATH  OF  A  HAVE  PACKET  AND 
032  C  TO  COMPUTE  THE  HAVE  HEIGHT. 

033  C 

034  C  COPIES  OF  THIS  PROGRAM  MAY  BE  OBTAINED  ON  9-TRACK*  800  OR  1600  BPI  ASCII 
035  C  ENCODED  TAPES  BY  SENDING  A  BLANK  TAPE  TO  THE  AUTHORS. 

036  C 
037  C 

038  C  I/O  UNIT  NUMBERS 
039  C 

040  C  UNIT  1  CONTROL  DATA  FILE  (INPUT) 

041  C 

042  C  UNIT  2  HATER  DEPTH  GRID  FILE  (INPUT) 

043  C 

044  C  UNIT  3  CURRENT  SPEED  GRID  FILE  (INPUT) 

045  C 

046  C  UNIT  5  TERMINAL  INPUT  (USED  ONLY  BY  SUBROUTINE  lOSET) 

047  C 

048  C  UNIT  6  PRINT  FILE  (OUTPUT) 


PLOT  FILE  (OUTPUT) 


IS  THE  INITIAL  DIRECTION  FROM  WHICH  THE  HAVE  PACKET 
COMES  WITH  RESPECT  TO  TRUE  NORTH. 

DETERMINES  THE  ACCURACY  IN  CALCULATING  THE  REFRACTION 
COEFFICIENT. 

IS  THE  INITIAL  DIRECTION  FROM  WHICH  THE  WAVELETS  COME 
WITH  RESPECT  TO  TRUE  NORTH. 

IS  A  FACTOR  TO  CONVERT  THE  CURRENTS  IN  CURX  AND  CURY  TO 
FEET/SECOND  OR  METERS/SECOND. 

IS  THE  FRICTION  FACTOR  FOR  THE  FRICTION  COEFFICIENT. 

IF  CIN  IS  NOT  ZERO  IT  IS  THE  TRAVEL  TIME  IN  SECONDS 
BETWEEN  SUCCESSIVE  TICK  MARKS  ON  A  RAY. 

IS  THE  WATER  DEPTH  GRID. 

IS  THE  DIRECTION  OF  THE  POSITIVE  X-AXIS  OF  THE  WATER 
DEPTH  AND  CURRENT  GRIDS  WITH  RESPECT  TO  TRUE  NORTH. 

SPECIFIES  THE  SOUNDING  CURRENTS  IN  FEET/SECOND  OR 
METERS/SECOND. 

SPECIFIES  THE  SOUNDING  DEPTHS  IN  FEET  OR  METERS. 

IS  THE  X-COMPONENT  CURRENT  GRID. 

IS  THE  Y-COMPONENT  CURRENT  GRID. 

DEFINE  THE  YEAR»  MONTH*  AND  DAY. 

IS  A  FACTOR  TO  CONVERT  THE  WATER  DEPTHS  IN  CMAT 
TO  FEET  OR  METERS. 

IS  THE  TIME  STEP  IN  SECONDS. 

IS  THE  WATER  DEPTH  IN  FEET  OR  METERS  IF  THERE  IS 
NO  WATER  DEPTH  GRID. 

IS  A  COMPUTER  RUN  IDENTIFIER. 

IS  THE  NUMBER  OF  FEET  OR  METERS  PER  GRID  UNIT. 

IS  THE  INITIAL  WAVE  HEIGHT  IN  FEET  OR  METERS. 
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102 

C 

HT 

IS 

THE 

HEIGHT  OF  THE  PLOT  IN  INCHES  OR  CENTIMETERS. 

103 

C 

104 

C 

MH 

IS 

THE 

MAXIMUM  X  FOR  THE  WATER  DEPTH  AND  CURRENT 

105 

C 

GRIDS. 

106 

c 

107 

c 

HOE 

IS 

THE 

UNITS  SPECIFIER 

108 

c 

=  0 

=>  ENGLISH  UNITS 

109 

r 

w 

=  1 

=>  METRIC  UNITS 

no 

C 

111 

c 

HXPLOT 

IS 

THE 

NUMBER  OF  PLOTS  OR  COMPUTER  RUNS. 

112 

c 

113 

c 

NAX 

IS 

THE 

PLOT  AXES  CALIBRATE  FLAG 

114 

c 

=  0 

»>  DO  NOT  CALIBRATE  AXES 

115 

c 

=  1 

»>  CALIBRATE  AXES 

116 

c 

117 

c 

NC 

IS 

THE 

CURRENT  GRID  FLAG 

118 

c 

=  0 

=>  THERE  IS  NO  CURRENT  GRID 

119 

c 

=  1 

=>  THERE  IS  A  CURRENT  GRID 

120 

c 

121 

c 

NCC 

IF 

NONZERO.  IT  IS  THE  NUMBER  OF  SOUNDING  CURRENT 

122 

c 

VALUES 

FOR  A  PLOT. 

123 

c 

124 

c 

NCO 

IF 

NONZERO.  IT  IS  THE  NUMBER  OF  SOUNDING  WATER  DEPTH 

125 

c 

values 

FOR  A  PLOT. 

126 

c 

127 

c 

HO 

IS 

THE 

HATER  DEPTH  GRID  FLAG 

128 

c 

«  0 

a>  THERE  IS  NO  WATER  DEPTH  GRID 

129 

c 

s  1 

=>  THERE  IS  A  HATER  DEPTH  GRID 

130 

c 

131 

c 

HFAN 

IS 

THE 

RAY  NUMBER  FLAG 

132 

c 

=  0 

a>  RAYS  ARE  NUMBERED  AT  THEIR  INITIAL  POINTS 

133 

c 

»  1 

»>  RAYS  ARE  NUMBERED  AT  THEIR  TERMINAL  POINTS 

134 

c 

135 

c 

HN 

IS 

THE 

MAXIMUM  T  FOR  THE  HATER  DEPTH  AND  CURRENT 

136 

c 

GRIDS. 

137 

c 

138 

c 

NNSKIP 

IS 

THE 

AMOUNT  ADDED  TO  THE  Y-COLUMN  IN  SELECTING  THE 

139 

c 

NEXT  COLUMN  FOR  LOCATING  SOUNDING  VALUES. 

140 

c 

141 

c 

NOR 

IS 

THE 

NUMBER  OF  RAYS  FOR  A  GIVEN  RUN. 

142 

c 

143 

c 

HPT 

IS 

THE 

FLAG  FOR  OPTIONAL  RAY  OUTPUT 

144 

c 

*  0 

=>  OPTIONAL  RAY  PARTICULARS  ARE  NOT  PRINTED 

145 

c 

=  1 

=>  OPTIONAL  RAY  PARTICULARS  ARE  PRINTED 

146 

c 

147 

c 

NROPT 

IS 

THE 

REFLECTION  POINT  CONTINUATION  FLAG 

148 

c 

»  0 

*>  RAY  IS  NOT  CONTINUED  BEYOND  REFLECTION  POINT 

149 

c 

-  1 

a>  RAY  IS  CONTINUED  BEYOND  REFLECTION  POINT 

150 

c 

151 

c 

NSH 

IS 

THE 

SHORELINE  FLAG 

152 

c 

»  0 

»>  SHORELINE  IS  NOT  DRAWN 

153 

c 

*  1 

«>  SHORELINE  IS  DRAWN 

154 

c 

58 


155  C 

156  C 

157  C 

158  C 
15?  C 

160  C 

161  C 

162  C 

163  C 

164  C 

165  C 

166  C 

167  C 

168  C 

169  C 

170  C 

171  C 

172  C 

173  C 

174  C 

175  C 

176  C 

177  C 

178  C 

179  C 

180  C 

181  C 

182  C 

183  C 

184  C 

185  C 

186  C 

187  C 

188  C 

189  C 

190  C 

191  C 

192  C 

193  C 

194  C 

195  C 

196  C 

197  C 

198  C 

199  C 

200  C 

201  C 

202  C 

203  C 

204  C 

205  C 

206  C 

207  C 


f^UBRK 


NXCMAT 


PROJCT 


DETERMINES  THE  FREQUENCY  OF  PRINTED  OUTPUT.  OUTPUT 
OCCURS  FOR  THOSE  VALUES  OF  MAX  WHICH  ARE  AN  INTEGRAL 
MULTIPLE  OF  NSK. 

IS  THE  WAVE  BREAK  TEST  FLAG 

=  0  =>  WAVE  BREAK  TEST  IS  MADE 
=  1  =>  WAVE  BREAK  TEST  IS  NOT  MADE 

IS  THE  GRID  READ  FLAG 

=  0  =>  READ  NEW  GRID(S) 

=  1  =>  USE  GRID(S)  FROM  PREVIOUS  PLOT 

IS  A  COMPUTER  RUN  IDENTIFIER. 

IS  THE  INPUT  WAVELET. PERIOD  IN  SECONDS. 

ARE  THE  INITIAL  RAY  COORDINATES. 

IS  THE  CURRENT  SPEED  IN  FEET/SECOND  OR  METERS/ 

SECOND  IF  THERE  ARE  NO  CURRENT  GRIDS. 

IS  THE  INITIAL  DIRECTION  FROM  WHICH  THE  CURRENT  COMES 
WITH  RESPECT  TO  TRUE  NORTH  IF  THERE  ARE  NO  CURRENT 
GRIDS. 


OUTPUT  RAY  PARTICULARS 


cur:di 


cur:sp 


DEPTH 


IS  THE  DIRECTION  FROM  WHICH  THE  CURRENT  COMES  WITH 
RESPECT  TO  TRUE  NORTH. 

IS  THE  CURRENT  SPEED  IN  FEET/SECOND  OR  METERS/SECOND. 
IS  THE  WATER  DEPTH  IN  FEET  OR  METERS. 


6aU  * 

COS(PACK-WAVE)  IS  THE  GEOMETRIC  GROUP  SPEED  IN  FEET/SECOND 
OR  METERS/SECOND  RELATIVE  TO  THE  CURRENT. 

GR  IS  THE  RAY  SPEED  IN  FEET/SECOND  OR  METERS/SECOND. 

HGT  IS  THE  HAVE  HEIGHT  IN  FEET  OR  METERS. 

KF  IS  THE  FRICTION  COEFFICIENT. 

KR  IS  THE  REFRACTION  COEFFICIENT. 

KS  IS  THE  SHOALING  COEFFICIENT. 

MAX  IS  AN  INDEX  TO  NUMBER  POINTS  ALONG  A  RAY. 

PACK  IS  THE  DIRECTION  FROM  WHICH  THE  HAVE  PACKET  COMES  WITH 

RESPECT  TO  TRUE  NORTH. 


t 
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208  C 

PERIOD 

IS  THE  WAVELET  PERIOD  IN  SECONDS  RELATIVE  TO  THE 

209  C 

CURRENT. 

210  C 

211  C 

RAY 

IS  THE  DIRECTION  FROM  WHICH  THE  RAY  COMES  WITH  RESPECT 

212  C 

TO  TRUE  NORTH. 

213  C 

214  C 

WAOE 

IS  THE  DIRECTION  FROM  WHICH  THE  WAVELETS  (IN  A  PACKET) 

215  C 

COME  WITH  RESPECT  TO  TRUE  NORTH. 

216  C 

217  C 

x»y 

ARE  THE  COORDINATES  OF  A  RAY  POINT. 

218  C 

219  C 

ADDITIONAL  OUTPUT 

IF  NPT  IS  NOT  ZERO 

220  C 

221  C 

BETA 

IS  THE  RAY  SEPARATION  FACTOR. 

222  C 

223  C 

BRK  UP 

IS  THE  TYPE  OF  TIME  STEP  BREAKUP  IF  ONE  OCCURS.  IF  THE 

224  C 

BREAKUP  OCCURS  IN  ORDER  TO  MAINTAIN  ACCURACY  IN  THE 

225  C 

REFRACTION  CALCULATIONS»  ‘BETA*  APPEARS  IN  THE 

226  C 

PRINTOUT.  IF  A  TIME  STEP  BREAKUP  IS  REQUIRED  TO  KEEP 

227  C 

THE  CHANGE  IN  'PACK*  TO  LESS  THAN  ONE  DEGREE  BETWEEN 

228  C 

SUCCESSIVE  RAY  POINTS  NEAR  A  REFLECTION  POINT, 

229  C 

■REFLECT*  APPEARS  IN  THE  PRINTOUT. 

230  C 

231  C 

CURVATURE 

IS  THE  RAY  CURVATURE  OF  THE  PACKET  IN  RADIANS/GRID 

232  C 

UNIT. 

233  C 

234  C 

DBETA/DT 

IS  THE  TIME  DERIVATIVE  OF  BETA. 

235  C 

236  C 

6T 

IS  THE  SPEED  OF  THE  ADVECTED  GROUP  FRONT  IN 

237  C 

FEET/SECOND  OR  METERS/SECOND  RELATIVE  TO  THE 

238  C 

CURRENT. 

239  C 

240  C 

NO 

IS  THE  NUMBER  OF  INTERVALS  THE  INPUT  TIME  STEP  IS 

241  C 

DIVIDED  INTO. 

242  C 

243  C 

PCTtCX 

IS  THE  MAXIMUM  PERCENTAGE  DIFFERENCE  FOR  THE  X- 

244  C 

COMPONENT  CURRENT  GRID.  SEE  EXPLANATION  TO  PCTID. 

245  C 

246  C 

PCTSCY 

IS  THE  MAXIMUM  PERCENTAGE  DIFFERENCE  FOR  THE  Y- 

247  C 

COMPONENT  CURRENT  GRID.  SEE  EXPLANATION  TO  PCT:D. 

248  C 

249  C 

PCTtD 

IS  THE  MAXIMUM  OF  THE  PERCENTAGE  DIFFERENCES  AT  THE  4 

250  C 

GRID  POINTS  CLOSEST  TO  THE  RAY  POINT  OF  THE  SURFACE 

251  C 

FIT  DERIVED  WATER  DEPTH  RELATIVE  TO  THE  ACTUAL  DEPTH. 

252  C 

253  C 

rotat;c 

IS  THE  ANGLE  OF  THE  ROTATED  XY-SYSTEM  (WHERE  THE  Y- 

254  C 

DERIVATIVES  ARE  SIMPLIFIED)  RELATIVE  TO  THE  CURRENT 

255  C 

GRID  XY-SYSTEM. 

256  C 

257  C 

ROTATtD 

IS  THE  ANGLE  OF  THE  ROTATED  XY-SYSTEM  (WHERE  THE  FIRST 

258  C 

Y-DERIVATIVES  VANISH)  RELATIVE  TO  THE  WATER  DEPTH 

259  C 

GRID  XY-SYSTEM. 

260  C 

261  C  U  IS  THE  CONUENTIONAL  GROUP  SPEED  IN  FEET/SECOND  OR 

262  C  METERS/SECOND  RELATIVE  TO  THE  CURRENT. 

263  C 

264  C  V  IS  THE  PHASE  SPEED  IN  FEET/SECOND  OR  METERS/SECOND 

265  C  RELATIVE  TO  THE  CURRENT. 

266  C 

267  C  VT  IS  THE  SPEED  OF  THE  ADVECTED  WAVELET  FRONT  IN  FEET/ 

268  C  SECOND  OR  METERS/SECOND  RELATIVE  TO  THE  CURRENT, 

269  C 

270  C 


271  C 

272  C 

SUBROUTINE  STRUCTURE 

273  C 

274  C 

WAVPAK 

MAINLINE  PROGRAM 

275  C 

276  C 

lOSET 

SET  UP  I/O  UNITS 

277  C 

278  C 

NUMCON 

PLOT  SOUNDING  DEPTHS 

279  C 

NUMBER 

CALCOHP  ROUTINE  TO  PLOT  NUMBERS 

280  C 

PLOT 

CALCOMP  ROUTINE  TO  PLOT  SYMBOLS 

281  C 

282  C 

NUNC0N2 

PLOT  CURRENT  SPEED  CONTURG 

283  C 

NUMBER 

CALCOMP  ROUTINE  TO  PLOT  NUMBERS 

284  C 

PLOT 

CALCOMP  ROUTINE  TO  PLOT  POINTS 

285  C 

286  C 

PLOT 

CALCOMP  ROUTINE  TO  PLOT  POINTS 

287  C 

288  C 

PLOTS 

CALCOMP  ROUTINE  TO  INITIALIZE  PLOTTER 

289  C 

290  C 

PRTPRM 

PRINT  OUT  INPUT  PARAMETERS 

291  C 

292  C 

RAYN 

CONTROL  RAY  CALCULATIONS  AND  PRINTOUT 

293  C 

ANGCON 

CONVERT  ANGLES  FOR  PRINTOUT 

294  C 

DRAW 

DRAW  A  RAY  PATH  AND  TICK  MARKS 

295  C 

NUMBER 

CALCOMP  ROUTINE  TO  DRAW  NUMBERS 

296  C 

PLOT 

CALCOMP  ROUTINE  TO  PLOT  POINTS 

297  C 

HEIGHT 

COMPUTE  HAVE  HEIGHT 

298  C 

MOVE 

MOVE  PACKET  ALONG  PATH 

299  C 

ANGCON 

CONVERT  ANGLES  FOR  PRINTOUT 

300  C 

HEIGHT 

COMPUTE  WAVE  HEIGHT 

301  C 

FAGCOL 

PRINT  PAGE  AND  COLUMN  HEADINGS 

302  C 

SURFCE 

COMPUTE  WAVE  PARTICULARS 

303  C 

VELCTY 

COMPUTE  WAVE  SPEEDS 

304  C 

PAGCOL 

PRINT  PAGE  AND  COLUMN  HEADINGS 

305  C 

PCD 

COMPUTE  PERCENT  DIFFERENCES 

306  C 

STORE 

STORE  DATA  ON  CURRENT  POINT 

307  C 

SURFCE 

COMPUTE  WAVE  PARTICULARS 

308  C 

VELCTY 

COMPUTE  WAVE  SPEEDS 

309  C 

310  C 

SHORE 

PLOT  IN  THE  SHORELINE  IF  REQUIRED 

311  C 

312  C 

313  C 

314  C 

315  C 

316  C 

317  C 

318  C 

319  C 

320  C 

321  C 

322  C  NOTES 

323  C 

324  C 

325  C 

326  C 

327  C 

328  C 

329  C 

330  C 

331  C 

332  C 

333  C 

334  C 

335  C 

336  C 

337  C 

338  C 


TITLE 

AXIS2 

NUMBER 

PLOT 

SYMBOL 

NUMBER 

PLOT 

SYMBOL 


CALCOMP  ROUTINE  TO  PLOT  POINTS 

TITLE  AND  BORDER  THE  PLOT 
PLOT  AXES 

CALCOMP  ROUTINE  TO  PLOT  NUMBERS 
CALCOMP  ROUTINE  TO  PLOT  POINTS 
CALCOMP  ROUTINE  TO  PLOT  SYMBOLS 
CALCOMP  ROUTINE  TO  PLOT  NUMBERS 
CALCOMP  ROUTINE  TO  PLOT  POINTS 
CALCOMP  ROUTINE  TO  PLOT  SYMBOLS 


THIS  PROGRAM  USES  THE  CALCOMP  HCBS  (HOST  COMPUTER  BASIC  SOFTWARE)  TO 
PERFORM  ALL  PLOTTING.  USERS  SHOULD  NOTE  THAT  THIS  SOFTWARE  VARIES 
SLIGHTLY  FROM  VERSION  TO  VERSION;  IN  ADDITION*  MANY  SITES  HAVE 
MODIFIED  THIS  PACKAGE  LOCALLY  TO  SUIT  PARTICULAR  NEEDS. 

DOUBLE  PRECISION  HAS  BEEN  USED  IN  THIS  PROGRAM  TO  OBTAIN  REQUIRED 
ACCURACY  ON  THE  VAX  11/780  AND  IBM  370  COMPUTERS.  USERS  OF  CDC  CYBER 
COMPUTERS  AND  THE  LIKE.  WHICH  USE  EXTENDED  PRECISION  BY  DEFAULT. 
SHOULD  NOT  REQUIRE  DOUBLE  PRECISION. 

THIS  PROGRAM  HAS  BEEN  EXTENSIVELY  MODIFIED  ON  A  VAX  11/780  USING  A 
FORTRAN  77  COMPILER.  EVERY  EFFORT  HAS  BEEN  MADE  TO  USE  ANSI  1966 
STANDARD  FORTRAN  CONSTRUCTS.  THE  ONLY  VAX  SPECIFIC  SUBROUTINE 
IS  'lOSETS  SEE  THE  COMMENTS  IN  THAT  ROUTINE  FOR  MORE  SPECIFICS. 


339 

340  C 

341 

342 

343  C 

344  C 

345  C 

346 

347 

348  C 

349  C 

350  C 

351 

352 

353  C 

354  C 

355  C 

356 

357 

358 

359 

360  C 


IMPLICIT  REAL»8  <A-H.O-Z) 

DIMENSION  C0NTURD<9).C0NTURC(9).EN(6.12) .S(6.6) 

DIMENSION  C<12).CX<12).CY(12).E(6).EX(6).EY(6) 

VARIOUS  GRIDS  NEEDED  FOR  VARIOUS  ROUTINES 

COMMON  /GRDCOM/  CMAT< 120. 120 ) .  CURX( 120. 120 ) .  CURY(120. 120) . 

1  CURR<120.120).  AX(4500).  AY(4500) 

COMMON  BLOCK  PRTCOH  IS  USED  BY  SUBROUTINE  PRTPRM 

COMMON  /PRTCOM/  HT.MXPLOT.NOR.NPT.NAX.NSH.NCO.NCC.NXCMAT. 

1  MM.NN.NNSKIP 

MAICOM  IS  USED  BY  ALL  ROUTINES 

COMMON  /MAICOM/  ALFA. AMM. ANN. CF. CIN.CNVRSA. CONTURD. DATEl .DATE2. 

1  DCON.DELTAT.DIR.DY.EM.GRID.HGTZ.AKRTOL.PROJCT. 

2  S.SDLTAT.NSK.TT.NWBRK.NBRKUP.NFAN.NFLAGR. 

3  NOLINE. IFLG. NOE .NFLECT.NFRACT.NRFLBU.NRFRBU.NROPT 


RAYCOH  IS  USED  BY  ALL  ROUTINES  REQUIRING  RAY  DATA 


361  C 

362  C 

363 

364 

365 

366 

367 

368  C 

369  C 

370  C 

371 

372 

373 

374 

375 

376  C 

377  C 

378  C 

379 

380  C 

381  C 

382  C 

383 

384 

385  C 

386  C 

387  C 

388 

389 

390  C 

391  C 

392  C 

393 

394  C 

395  C 

396  C 

397 

398 

399 

400  C 

401  C 

402  C 

403  C 

404 

405 

406  C 

407  C 

408  C 

409 


COMMON  /RAYCOM/  BDZ »C >CX >CY f D> DELA> DEP > DGDX > DHDX > E >EX >EY >G >GZERO > 

1  HGT»AKFC»AKR.AKSfP0T»PREV»Pl»P2»P3»P4»P5»Q0T,Ql, 

2  Q2»Q3»Q4»Q5»PU»SUVfPDEP»SPREV»GTZER0» 

3  PALFA>SUAU>P6>U>V>IHGT» 

4  NTOREF»INUM»NAXQ»NUMT»NOREF 

SRFCOM  IS  USED  BY  ALL  ROUTINES  PERFORMING  SURFACE  FUNCTIONS 

/SRFCOM/  ND»NC»CCON»TTT»ARAY»GR»GT»SARAY»PZ»PZD» 

CALFA » PC ALFA » PARA Y » PREVT  » SPREVT  » VT » SVT » ASV» 
Z*ZD»BZ»KMAX»PX»PY»PTTT»PANGLE»PGR»PPCTD»PPCTCX» 
PPCTCY»PGT»SVBZ»SVBDZ»KNUHT»KRFLBU»KRFRBU»CDGDX» 

UMX » AGR » PGAH » PBZ » PBDZ » PFK » P V » PVT 

NUMCOM  IS  USED  BY  NUHCON 

COMMON  /NUMCOM/  CONTURC 

SET  UP  THE  INPUT  FILES  AND  INITIALIZE  THE  CALCOMP  PLOTTER 


COMMON 

1 

2 

3 

4 


CALL  lOSET 

CALL  PL0TS(0.0»0.0»9) 

DEFINE  SOME  CONSTANTS 


MMAXa4500 

LI=50 


READ  THE  FIRST  CONTROL  CARD 
READ  (1»3)  NXPL0T»PR0JCT»DATE1»DATE2»DIR 
LOOP  OVER  THE  PLOT  SETS 
DO  399  NPLOTalfMXPLOT 

READ  (lf4)  NORfNPTfNSKfHTfCINfNAXfNSHfNCOfNCCfNNSKIPfNXCMATfMOE 
READ  (lf5)  MMfNNfCNVRSAf6RIDfDC0NfDEP»NDrCC0N>Z>ZD>NC 

THE  INPUT  DIRECTIONS  ARE  TRANFORMED  TO  THE  COMPUTATIONAL 
COORDINATES  AND  TO  RADIANS 

ZDaCNVRSA-ZD+180.D0 

ZDaZD«1.74532925D-2 

SELECT  ACCELERATION  DUE  TO  GRAVITY 

IF  (MOE  .EQ.  0)  GO  TO  23 


410  AGRa9.8D0 

411  C 

412  C  CONVERT  TO  ENGLISH  UNITS  FOR  PLOT  CALCULATIONS 

413  C 


63 


414  HT=HT/2.54D0 


415 
XTT  416 

417  23 

418 

419  C 

420  C 

421  C 

422  22 

423 

424 

425 

426 

427 

428  C 

429  C 

430  C 

431 

432 

433 

434  C 

435  C 

436  C 

437  C 

438  3939 

439 

440 

441  C 

442  C 

443  C 

444  493 

445 

446  C 

447  C 

448  C 

449  393 

450  25 

451 

452 

453  C 

454  C 

455  C 

456 

457 

458 

459  51 

460  50 

461  C 

462  C 

463  C 

464  C 

465  3949 

466 


GRIDPLT=6RID/0.3048D0 
GO  TO  22 
AGR=32.2D0 
GRIDPLT=GRID 

CONVERT  CIN  FROH  SECONDS  TO  HOURS 

CIN=CIN/3600.D0 

ANH=NN-1.D0 

ANN>NN-1.D0 

DY=ANN/HT 

SCLI»GRIDPLT«DY»12. 

CALL  TITLE  (NPLOT»NAX»SCLI t HT) 

READ  THE  WATER  DEPTH  GRID»  IF  ANY 

IF  (ND  .EQ.  0)  GO  TO  25 

IF  (NXCHAT  .NE.  0)  GO  TO  3939 

READ  (2»11)  ((CHAT(J»I)»I=1»HH)» J=lfNN) 

READ  THE  CONTURD  CARD  IF  ANY»  THEN  PLOT  SOUNDING  DEPTH 
CONTOURS  REQUESTED 

IF  (NCO  .LE.  0)  GO  TO  493 

READ  <1»495)  <CONTURD< I ) i I»1 »NCO) 

CALL  NUNCON 

PLOT  THE  SHORELINE  IF  REQUESTED 

IF  (NSH  .EQ.  0)  GO  TO  393 
CALL  SHORE 

READ  THE  CURRENT  GRIDf  IF  ANY 

IF  (NC  .EQ.  0)  GO  TO  3937 
IF  (NXCHAT  .NE.  0)  GO  TO  3949 
READ<3»11)  ( (CURY(J»I)f I»l*HH)f J=1.NN) 

READ(3»11)  ( (CURX(Jf I)*I»1*HH)»J=1»NN) 

CONFUTE  MAGNITUDE  OF  CURRENT 

DO  50  J«1»NN 
DO  51  I«1»HH 

CURR(J»I)«DSQRT(CURX(J»I)*»2+CURY(J»I)«2) 

CONTINUE 

CONTINUE 

READ  THE  CONTURC  CARD  IF  ANY»  THEN  PLOT  CURRENT 
PROFILES  REQUESTED 

IF  (NCC  .LE.  0)  GO  TO  3937 
READ(1»495)  (CONTURC( I ) * I»l .NCC) 


6A 


467 

468  C 

469  C 

470  C 

471  3937 

472  C 

473  C 

474  C 

475 

476 

477  C 

478  C 

479  C 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500  C 

501  C 

502  C 

503 

504  15 

505  C 

506  C 

507  C 

508 

509  C 

510  C 

511  C 

512  399 

513  C 

514  C 

515  C 

516 

517 

518 

519  C 


CALL  NUHC0N2 


PRINT  SYSTEM  PARTICULARS 


CALL  PRTPRM(NPLOT) 

LOOP  OVER  THE  RAYS  OF  THIS  SET 
DO  15  H»1>N0R 

READ<1»6)  DELTAT»TT»X»Y»A»AV*HGTZ»CF»AKRTOL»NROPT.HWBRK.HFAN 
SET  AND/OR  COMPUTE  INITIAL  VALUES 


TTT=TT 

SDLTAT=DELTAT 

A«CNVRSA-A4180.D0 

A»A»1.74532925D-2 

AV=CNVRSA-AV+180,D0 

AV*AV«1.74532925D-2 

MAXQ=1 

N0LINE=0 

NBRKUP=0 

NFLECT=0 

NRFLBU=0 

NFRACT=0 

NRFRBU»0 

NFLAGR*0 

IFLG^O 

ALFA*0.000 

CALFA»O.DO 

SVAV*AV 

ASV=A 

ARAY=A 

PERFORM  CALCULATIONS  FOR  THIS  RAY 

CALL  RAYN<X»Y.A.NPLOT»NfMMAX»LI»AV) 
CONTINUE 

RE-ORIGIN  THE  PLOTTER  FOR  THIS  PLOT 
CALL  PLOT  (-3.»-.4»-3) 

THEN  CONTINUE  WITH  THE  NEXT  PLOT 


CONTINUE 


CLOSE  OUT  THE  PLOTTERr  THEN  WRITE  TERMINATION  RECORD  AND  END 


CALL  PL0T(0»0»999) 
WRITE  (6»999^) 

CALL  EXIT 
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520  C  FORMAT  SECTION 

521  C 

522  3  F0RHAT(I2>1X>3(A6>1X)>A6) 

523  4  F0RMAT(3(2X»I3)»5X»2<F8.3»2X)f7(2X»I3)) 

524  5  F0RMAT(2(2X,I3) »lX>F7.3»2(lX»F9.3)>lX»F7.2r 1X>I3»1X»F9.5»1X» 

525  1  F7.2.1X»F6.2.1X.I3) 

526  6  F0RMAT(7(F6.2»2X)»2(F6.4.2X)t3(Il»lX)) 

527  11  F0RMAT(16F5.0) 

528  495  F0RMAT(9F8.2) 

529  9999  FORMAT( IHl . 17H  THIS  IS  THE  END.) 

530  END 


001  SUBROUTINE  TITLE  (NPLOT .NAXtSCLI »HT) 

002  C 

003  C  PURPOSE 

004  C 

005  C  THIS  SUBROUTINE  LABELS  THE  PLOT  AND  ADDS  THE  STRAIGHT  LINE 

006  C  BORDERS. 

007  C 

008  C  SUBROUTINES  REQUIRED 

009  C 

010  C  '  AXIS2  SUBROUTINE  FOR  DRAWING  AXES 

Oil  C  SYMBOL  CALCOHP  ROUTINE  FOR  DRAWING  VARIOUS  SYMBOLS 

012  C  NUMBER  CALCOMP  ROUTINE  FOR  DRAWING  NUMBERS 

013  C  PLOT  CALCOMP  ROUTINE  FOR  DRAWING  POINTS  AND  LINES 

014  C 

015  IMPLICIT  REALHS  (A-HiO-Z) 

016  DIMENSION  C0NTUR0(9 ) i EM(6f 12) >S<6f 6) 

017  COMMON  /MAICOM/  ALFAi AMMf ANN >CF>CIN>CNVRSA > CONTURDr DATEl r DATE2 > 

018  1  DC0Nf0ELTAT>0IR>DY>EM>6RIDTHGTZ>AKRT0L>PR0JCT> 

019  2  SfSOLTATfNSKfTTfNWBRK>NBRKUPTNFAN>NFLAGR> 

020  3  NOLINE»IFLG»MOE.NFLECT»NFRACT»NRFLBU»NRFRBU»NROPT 

021  C 

022  C  MOVE  THE  PLOT  AXIS»  AND  DEFINE  SOME  CONSTANTS 

023  C 

024  CALL  PL0T(3. >0.4>3) 

025  RTaAMM/DY 

026  XNPLOT«NPLOT 

027  C 

028  C  DRAW  IN  THE  PLOT  TITLE  LABELS 

029  C 

030  CALL  SYHBOL(1.25>0.4f .2fl7HPR0J.  NO.  >>90. >17) 

031  CALL  SYMB0L(1.2S>2.4>.2>PR0JCT>90.>6) 

032  CALL  SYHB0L(1.25>4.0>.2>DATE1>90.>6) 

033  CALL  SYHB0L(1.25>5.2>.2>DATE2>90.>2) 

034  CALL  SYMB0L(-t.50>0.4>  .2>23HSCL  «  1/  >  CIN  *>90.  >23) 

035  CALL  NUMBER(1.50>2.0> .2>SCLI>90.>-1) 

036  CALL  NUHBER(1.50>5.2>.2>CIN<3600.>90.>>1) 

037  CALL  SYMB0L(1.75>0.4> .2>19HPL0T  NO.  >  DIR.  *>90. >19) 

038  CALL  NUHBER(1.75>2.2>.2>XNPL0T>90.>-1) 

039  CALL  SYHB0L(1.75>4.4> .2>0IR>90. >6) 


.  •  ,  •  •  .  •  • 
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K^y,' 

!••■'. 

040  C 

041  C 

CHECK  AXIS  TYPE 

042  C 

043 

IF  (NAX  .HE.  0)  GO  TO  705 

■  •*  • 

044  C 

■-V-’ 

045  C 

DRAU  STRAIGHT-LINE  BORDERS  FOR  THE  PLOT 

046  C 

047 

CALL  PL0T<3. »0.4.3) 

048 

CALL  PL0T(3.»HT+.4,2) 

049 

GO  TO  706 

050  C 

051  C 

DRAW  FULL  LABELED  AXES 

052  C 

053  705 

CALL  AXIS2<3.>0.4»1HY»1>HT»90.»0.>DY) 

m 

054 

CALL  AXIS2(3.» .4»1HX»-1»RT»0.»0.»DY) 

055 

CALL  PL0T<3. .HT+.4.3) 

t  '•;• 

056  C 

057  C 

DRAW  IN  OUTER  BOX  LIMITS 

058  C 

;  j‘ 

059  706 

CALL  PL0T(RT+3. »HT+.4»2) 

sr. 

060 

CALL  PL0T(RT+3. t .4,2) 

061  C 

L'-^»  - 

062  C 

THEN  RE-ORIGIN  IN  CORRECT  POSITION 

063  C 

064 

IF  (NAX  .EQ.  0)  CALL  PL0T(3. ,0.4,2) 

■ia 

065 

CALL  PL0T(3.,0.4,-3) 

066 

YHT»HT 

'  •*  *  ** 

067 

RETURN 

068 

END 

A 

•*  -,•* 

•-■r-w 

001 

SUBROUTINE  AXIS2<X,Y,BCD,NC,SIZE,THETA, YMIN,DY) 

•V-' 

■  n  m 

Zfi 

002  C 

003  C 

PURPOSE 

004  C 

005  C 

THIS  ROUTINE  DRAWS,  CALIBRATES,  AND  LABELS  THE 

AXES 

006  C 

FOR  THE  PLOT. 

007  C 

008  C 

SUBROUTINES  REQUIRED 

Ifi 

009  C 

010  C 

NUMBER  CALCOMP  ROUTINE  FOR  PLOTTING  NUMBERS 

on  c 

PLOT  CALCOMP  ROUTINE  FOR  MOVING  THE 

PEN 

■<:•: 

012  C 

SYMBOL  CALCOMP  ROUTINE  FOR  PLOTTING  SYMBOLS 

013  C 

• 

•V*- 

014 

IMPLICIT  REAL»8  (A-H,0-Z) 

•  •  • 

015  C 

•'  •* 

016  C 

INITIALIZE  VARIOUS  CONSTANTS 

1 

. ' 

017  C 

018 

BIGN>1.0D0 

019  C 

020  C 

IF  THERE  ARE  NO  CHARACTERS  FOR  THE  AXIS,  THERE 

IS  NO  NEED 

021  C 

TO  RE-ORIGIN 

- 

1 

E 


023 

024 

025  2 

026 
027 
028 
029 
030 
031 
032 
033 
034 
035  C 
036  C 
037  C 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 

049  20 

050 

051 

052 

053 

054  C 

055  C 

056  C 

057 

058 

059 

060 

061 

062 

063  30 
064  C 
065  C 
066  C 
067 
068 
069 
070 
071 


IF  <NC  .GE.  0)  GO  TO  2 
BIGN=-1 .000 
NAC=IABS(NC) 

TH=THETA3tl  .745329250-2 

K=DY«SIZE+0.5D0 

CTH=DCOS(TH) 

STH=DSIN(TH) 

TN=N 

XB=X 

YB=Y 

XA=X-0.1B0»BIGN<STH 

YA=Y+0.1D0»BIGNtCTH 

DRAW  AXIS  WITH  CALIBRATED  TICK  HARKS 

CALL  PL0T(XA.YA.3) 

DO  20  l3l«N 

CALL  PL0T(XB.YB.2) 

XC=XB+CTH/DY 
YC=YB+STH/DY 
CALL  PL0T<XC*YC*2) 

XA»XA+CTH/DY 
YA=YA+STH/DY 
CALL  PL0T(XA»YAf2) 

XB»XC 

YB»YC 

CONTINUE 

IBSVaYMIN+TN 

XA»XB-<.20D0»BIGN-.05DO)tSTH-.02857D0»CTH 
YA»YB+  < , 20D0»BIGN- , 0500 ) «CTH- . 02857D0«STH 
M»N+1 

NUMBER  THE  ORIGIN  AND  EVERY  TENTH  TICK  MARK 
DO  30  I^lfN 

IF  <HOD<IBSVf 10).Ea.  0) 

I  CALL  NUHBER(XAfYA»,l»FLOAT(IBSV)»THETA»-l) 

IBSV»IBSV-1 
XA»XA-CTH/DY 
YA»YA-STH/DY 
CONTINUE 

LABEL  THE  AXIS 

TNC-NAC+7 

XA«X+(SIZE/2,0-,06»TNC)»CTH-<-.07+BIGNt,36)»STH 
YA«Y+(SIZE/2.0-.06tTNC)»STH+<-,07+BIGN».36)tCTH 
CALL  SYMBOL ( XA » YA i . 1 4  f  BCD  f  THETA  f  NAC ) 

RETURN 
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001 
002  C 
003  C 
004  c 
005  C 
006  C 
007  C 
003  C 
009  C 
010  C 

on  c 

012  C 
013 
014  C 
015 
016  C 
017 
018 
019 
020 
021  C 
022 
023 
024  C 
025 
026 
027  C 
028  C 
029  C 
030 
031 
032  C 
033  C 
034  C 
035 
036 
037 
038  C 
039  C 
040  C 
041 
042 
043 
044 
045  C 
046  C 
047  C 
048  C 
049 


SUBROUTINE  NUHCON 
PURPOSE 


THIS  ROUTINE  LOCATES  AND  DRAWS  IN  THE  SPECIFIED  SOUNDING 
DEPTHS. 

SUBROUTINES  REQUIRED 

NUMBER  CALCOMP  ROUTINE  TO  DRAW  NUMBERS 

PLOT  CALCOMP  ROUTINE  TO  MOVE  THE  PEN 

IMPLICIT  REALta  <A-H.O-Z) 

DIMENSION  C0NTURD<9)*EM<6»12)»S(6.6) 

COMMON  /MAICOM/  ALFA* AMM » ANN» CF»CIN» CNVRSA» CONTURD» DATEl . DATE2» 

1  DCON.DELTAT*DIR*DY.EM*GRID.HGTZ*AKRTOLfPROJCT* 

2  S*SDLTAT*NSK*TT*NWBRK;*NBRKUP*NFAN*NFLAGRf 

3  N0LINE*IFL6*M0E*NFLECT*NFRACT*NRFLBU*NRFRBUf NROPT 

COMMON  /6RDC0M/  CMAT< 120* 120) *  CURX ( 120* 120 ) *  CURY( 120* 120 ) * 

1  CURR<120*120) *  AX(4500)*  AY(4500) 

COMMON  /PRTCOM/  HT*MXPLOT*NOR*NPT*NAX*NSH*NCO*NCC*NXCMAT* 

1  MM*NN*NNSKIP 

DEFINE  SOME  USEFUL  CONSTANTS 


NOD^NN-l 

M0DD*MM-1 


SELECT  Y-COLUMN  STARTING  WITH  THE  SECOND  Y-COLUMN 

DO  5000  J-2*  NOD*  NNSKIP 
YJ=J-1 
KKK»1 

SELECT  SOUNDING  DEPTH 

DO  8000  NC=1*NC0 
KHIT=0 
NDIF=3 
I=MM-1 

SEARCH  COLUMN  FOR  THE  GIVEN  SOUNDING  DEPTH  BEGINNING  ONE 
GRID  UNIT  FROM  THE  END  OF  THE  COLUMN 

DO  1011  II»1*M00D 


050 
051 
052 
053  C 


XI»I-1 

IL»-H1 

XL*IL-1 
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054 

C 

CHECK  FOR  CONTOUR  REACHING  THE  SHORELINE 

055 

C 

056 

IF  (KUIT  .GT.  0)  GO  TO  8000 

057 

IF  (CMAT(Jfl)  .GT.  0)  GO  TO  20 

058 

KUIT=1 

059 

C 

060 

C 

LOCATE  OURSELVES  WITH  RESPECT  TO  THE  CONTOUR 

061 

C 

062 

20 

IF  (C)1AT(J»I)»DC0N-C0NTURD(KC))  12>llfl3 

063 

C 

064 

C 

THE  CONTOUR  FELL  ON  A  GRID  POINT 

065 

C 

066 

11  ' 

AX(KKK)>XI 

067 

AY(KKK)aCONTURD<KC) 

068 

KKK=KKK+1 

069 

NDIF»3 

070 

GO  TO  1010 

071 

C 

072 

C 

HE  HAVE  NOT  YET  REACHED  THE  PROPER 

REGION 

073 

C 

074 

12 

GO  TO  (14»77»14)»NDIF 

075 

14 

NDIF=1 

076 

GO  TO  1010 

077 

13 

GO  TO  (77»15»15)»NDIF 

078 

15 

NDIFs2 

079 

GO  TO  1010 

080 

C 

081 

C 

THE  CONTOUR  IS  WITHIN  THIS  GRID  ELEMENT.  LINEARLY 

082 

C 

INTERPOLATE  FOR  THE  SOUNDING  DEPTH 

083 

C 

084 

77 

SLPX»(DCON»(CMAT(JfIL)-C«AT(J»I)))/(XL-XI) 

085 

XP»(CONTURD(KC)-DCON»CNAT( I ) )/SLPX+XI 

086 

AX(KKK)»XP 

087 

AY(KKK)»CONTURD(KC) 

088 

KKK«KKK+1 

089 

GO  TO  (81>82)fNDIF 

090 

81 

NDIF*2 

091 

GO  TO  1010 

092 

82 

NDIF=1 

093 

1010 

I  »  I  -  1 

094 

1011 

CONTINUE 

095 

8000 

CONTINUE 

096 

C 

097 

c 

DRAW  OUT  SOUNDING  DEPTHS  FOR  EACH  SELECTED 

Y-COLUMN 

098 

c 

099 

KKK 

»KKK-1 

100 

IF 

(KKK-l)  5000f668f670 

101 

670 

KKL 

•KKK-1 

102 

DO 

998  IA«1»KKL 

103 

IA0«IA^1 

104 

DO  997  IB«IADfKKK 

105 

IF  (AX(IA)  ,LE.  AX(IB))  GO  TO  997 

106 

XHIN«AX(IA} 

70 


107  AX(IA)=AX(IB) 

108  AX(IB)=XHIN 

109  XMIN=AY(IA) 

no  AY(IA)*AY(IB) 

111  AY(IB)=XMIN 

112  997  CONTINUE 

113  998  CONTINUE 

114  668  IF  (M0D(J*2)  .NE.  0)  GO  TO  104 

115  KONE=KKK 

116  KADD=-1 

117  LAST=1 

118  GO  TO  105 

119  104  K0NE=1 

120  KADD*1 

121  LAST=KKK 

122  C 

123  C  NUMBER  THE  CONTOUR 

124  C 

125  105  CALL  NUMBER(AX(KONE)/DY» YJ/DY. 0. 10» AY(KONE) »0 . 0» -1 ) 

126  CALL  SYMB0L(999.0.999.0»0.10f 'D'»0.0.1) 

127  IF  (KONE  .EQ.  LAST)  GO  TO  5000 

128  KONE=KONE+KADD 

129  GO  TO  105 

130  5000  CONTINUE 

131  C 

132  C  RE-ORIGIN  THE  PLOTTER  AND  EXIT 

133  C 

134  CALL  PL0T<0..0..-3) 

135  RETURN 

136  END 


001  SUBROUTINE  NUHC0N2 

002  C 

003  C  PURPOSE 

004  C 

005  C  THIS  ROUTINE  LOCATES  AND  DRAUS  IN  THE  CURRENT  SPEED 

006  C  CONTOURS. 

007  C 

008  C  SUBROUTINES  REQUIRED 

009  C 

010  C  NUMBER  CALCOMP  ROUTINE  FOR  PLOTTING  NUMBERS 

on  C  PLOT  CALCOMP  ROUTINE  FOR  MOVING  THE  PEN 

012  C 
013  C 

014  IMPLICIT  REAL»8  (A-HfO-Z) 

015  C 

016  DIMENSION  C0NTURD(9) »C0NTURC(9) f EM( 6» 12) » S( 6»6) » C( 12) »CX(12) 

017  DIMENSION  CY( 12) »E(6) »EX(6) .EY(6) 

018  C 

019  COMMON  /GRDCOM/  CMAT( 120» 120) t  CURX( 120» 120 ) »  CURY( 120» 120) . 

020  1  CURR(120fl20)f  AX<4500)»  AY(4500) 
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021  C 
022 
^  023 

'  024  C 

025 
026 
027 
028 
029  C 
030 
031 
032 
033 
034 
035  C 
036 
037 
038 
039 
040 
041  C 
042 
043  C 
044  C 
045  C 
046 
047 
048  C 
049  C 
050  C 
051 
052 
053 
054  C 
055  C 
056  C 
057 
058 
059 
060  C 
061  C 
062  C 
063  C 
064 
065 
066 
067 
068  C 
069  C 
070  C 
071  C 
072  20 
073  C 


COMMON  /PRTCOM/  HT»MXPLOT»NOR»NPT»NAX»NSH»NCO»NCC»NXCMAT» 

1  HMfNNfNNSKIP 

COMMON  /HAICOM/  ALr A i AMM » ANN»CF» CIN. CNORSA » CONTURD . DATEl r DATE2 ? 

1  DCON*DELTAT»DIR»DY,EM»GRID»HGTZ»AKRTOL»PROJCT» 

2  S»SDLTAT»NSK»TT»NUBRK»NBRKUPf NFAN»NFLAGR» 

3  NOLINE »IFLG;M0E»NFLECT»NFRACT>NRFL3U»NRFRBU»NR0PT 

COMMON  /RAYCOM/  BDZ »C»CX»CY »D»DELA» DEP » D6DX » DHDX » E »EX » EY »G» GZERO » 

1  HGT»AKFC»AKR»AKS»P0T»PREV»P1»P2»P3»P4»P5»Q0T»Q1» 

2  Q2»Q3»Q4»Q5»PU»SVV»PDEP»SPREV»6TZER0» 

3  PALFAfSUAV»P6»U»V»IH6T» 

4  NT0REF«1NUM»MAXQ>NUMT>N0REF 

COMMON  /SRFCOM/  ND»NC»CC0N»TTT»ARAY»6R»GT»SARAY»PZf PZD» 

1  CALFA»PCALFA»PARAY»PREVT»SPREVT»yT»SVT»ASV» 

2  Z»ZD»BZ»KMAX»PX»PY»PTTT»PANGLE»PGR»PPCTD»PPCTCX» 

3  PPCTCY»PGT»SVBZ»SVBDZ»KNUMT»KRFLBU»KRFRBU»CDGDX. 

4  UMXfAGR»P6AM»PBZ»PBDZ»PFK»P0»PyT 

COMMON  /NUMCQM/  CQNTURC 

DEFINE  SOME  USEFUL  CONSTANTS 

N0D*NN-1 

MODDaMM-1 

SELECT  Y-COLUMN  STARTING  WITH  THE  FOURTH  Y-COLUMN 

DO  5000  Ja4f  NOD*  NNSKIP 
YJaJ-l 
KKK*1 

SELECT  CURRENT  SPEED  CONTOUR 

00  8000  KCalfNCC 
NDIFa3 
I=MM-1 

SEARCH  COLUMN  FOR  THE  GIVEN  CURRENT  SPEED  CONTOUR  BEGINNING 
ONE  GRID  UNIT  FROM  THE  END  OF  THE  COLUMN 

DO  1011  11=1*M0DD 
XI=I-1 
IL=I+1 
XL*IL-1 

FIGURE  OUT  WHERE  WE  ARE  IN  RESPECT  TO  THE  CONTOUR 
LINE 


IF  <CURR( J*I)*CCON-CONTURC(KC) )  12.11*13 


►  -  %  - 

j 

■ 
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1 

k.' 

074  C 

THE  CONTOUR  FELL  ON  A  GRID  POINT 

075  C 

. 

076  11 

AX(KKK)=XI 

077 

Ay(KKK)=CONTURC<KC) 

i 

078 

KKK=KKK+1 

F 

079 

HDIF=3 

f 

I 

1  ^ 

080 

GO  TO  1010 

1 

•  - 

081  12 

GO  TO  (14,77»14)»NDIF 

la 

082  14 

NDIF=1 

083 

GO  TO  1010 

■  ■■ 

084  13 

GO  TO  (77.15.15)»NDIF 

■ 

085  15 

NDIF=2 

•  .- 

086 

GO  TO  1010 

• 

087  C 

9 

088  C 

THE  CONTOUR  FELL  WITHIN  THE  CURRENT 

GRID 

ELEMENT. 

089  C 

LINEARLY  INTERPOLATE  FOR  THE  CURRENT 

SPEED  CONTOUR 

'■vJn 

090  C 

091  77 

SLPX=(CCON«(CURR(J»IL)-CURR(J»I) ) )/(XL-XI) 

‘•V^' 

092 

XP= ( CONTURC ( KC ) -CCONtCURR ( J » I) ) /SLPX+XI 

>r-C^ 

093 

AX(KKK)=XP 

094 

AY(KKK)=CONTURC(KC) 

• 

095 

KKK=KKK+1 

096 

GO  TO  <81*82)*N0IF 

097  81 

NDIFa2 

098 

GO  TO  1010 

1^ 

099  82 

NDIF*! 

•  ^ , 

100  1010 

1*1-1 

101  1011 

CONTINUE 

,•  • 

102  8000 

CONTINUE 

103  C 

104  C 

DRAW  THE  SPEED  CONTOURS  FOR  EACH  OF  THE  SELECTED 

Y-COLUMNS 

a 

105  C 

106 

KKK 

sKKK-1 

107 

IF 

<KKK-1)  5000»668»670 

*•  «’* 

108  670 

KKL 

*KKK-1 

109 

DO 

998  IA=lfKKL 

110 

IAO*IA-fl 

£iL] 

111 

DO  997  IB*IAD»KKK 

112 

IF  (AXdA)  .LE.  AX(IB))  GO  TO  997 

113 

XHIN*AX<IA) 

114 

AX<IA)*AX<IB) 

•  •  • 

115 

AX<IB)*XNIN 

116 

XHIN*AY(IA) 

r«: 

117 

AY(IA)aAY(IB) 

,  , 

118 

AY(IB)=XMIN 

L  •  -■' 

119  997 

CONTINUE 

120  998 

CONTINUE 

•  *. 

121  668 

IF 

<N00(J>2}  .-NE.  0)  GO  TO  104 

122 

KONE«KKK 

i.9L 

. 

123 

KADDa-1 

■;  -. 

124 

LASTal 

;  .•• 

125 

GO 

TO  105 

126  104 

K0NE«1 

■  k  **  * 
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127  KADD=1 

128  LAST=KKK 
V/  129  C 

130  C  NUMBER  THE  CONTOUR 

131  C 

132  105  CALL  NUMBER(AX<KONE)/DY»YJ/DY»0. 10» AY(KONE) »0.0»2) 

133  CALL  SYMB0L(999.0.999.0»0.10»'C'»0.0»1) 

134  IF  (XONE  .£Q.  LAST)  GO  TO  5000 

135  KONE=KONE+KADD 

136  GO  TO  105 

137  5000  CONTINUE 

138  C 

139  C  RESET  THE  PLOTTER  ORIGIN  AND  EXIT 

140  C 

141  CALL  PLOTCO. tO. t-3) 

142  RETURN 

143  END 


001  SUBROUTINE  SHORE 

002  C 

«  003  C  PURPOSE 

004  C 

005  C  THIS  ROUTINE  IS  CALLED  TO  DRAW  IN  THE  SHORELINE. 

006  C 

007  C  SUBROUTINES  REQUIRED 

008  C 

009  C  PLOT  CALCOMP  ROUTINE  TO  MOVE  THE  PEN 

010  C 

on  IMPLICIT  REAL*8  (A-HfO-Z) 

012  C 

013  DIMENSION  C0NTURD(9)  fEM(6n2)  f  S<6f6) 

014  C 

015  COMMON  /QRDCOM/  CMAT( 120» 120) »  CURX( 120» 120) »  CURY( 120» 120) » 

016  1  CURR<120»120)»  AX(4500)»  AY(4500) 

017  C 

018  COMMON  /PRTCOM/  HTf MXPLOT»NOR»NPTfNAX»NSH»NCO»NCC»NXCMAT» 


019  1  MMfNNfNNSKIP 

020  C 

021  COMMON  /MAICOM/  ALFA» AMM» ANN»CF »CINf CNVRSA» CONTURD » DATEl » DATE2 » 

022  1  DCON»DELTAT»DIR»DY»EM»GRID»HGTZ»AKRTOL»PROJCT» 

023  2  SfSDLTAT>NSKfTT»NWBRK»NBRKUP>NFAN>NFLAGR» 

024  3  noline»iflg»moe»nflect*nfract»nrflbu»nrfrbu»nropt 

025  C 

026  C  INLINE  FUNCTION  TO  LINEARLY  INTERPOLATE  OVER  2  POINTS 

027  C 

028  P0NT(Xl»X2»DifD2)»Xl-Dll((Xl-X2)/(Dl-D2)) 

029  IC=3 

030  C 

031  C  SELECT  Y-COLUMN 

032  C 

033  DO  1  J=l»NN 
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034 

035 

036 

037 

038 

C 

039 

c 

040 

c 

041 

042 

043 

044 

045 

c 

046 

c 

047 

c 

048 

c 

049 

050 

c 

051 

c 

052 

c 

053 

100 

054 

c 

055 

c 

056 

c 

057 

101 

058 

059 

060 

061 

102 

062 

063 

064 

065 

066 

067 

068 

c 

069 

c 

070 

c 

071 

200 

072 

073 

074 

075 

076 

o 

CM 

077 

078 

201 

079 

080 

081 

082 

083 

207 

J84 

84 

YJ=J-1 

JL=J-1 

YL=JL-1 

I=HM 


SEARCH  COLUMN  FOR  ZERO  WATER  DEPTH  STARTING  WITH  MAXIMUM  X 


DO  3  11=1. MM 
XI=I-1 
IL=I+1 
XL=IL-1 


FIND  OURSELVES  WITH  RESPECT  fO  THE  SHORELINE 
(CHAT  <  0  =>  POINT  IS  ON  LAND) 

IF  (CMAT(J.I))  100.200.300 

WE  ARE  ON  LAND 

IF  (IC  .GT.  2)  GO  TO  102 

INTERPOLATE  FOR  ZERO  WATER  DEPTH 

XP=PONT(XI.XL.CMAT< J.I).CMAT( J.IL) ) 

CALL  PLOT<XP/DY.YJ/DY.IC) 

IC=2 
GO  TO  1 

IF  (J  .LE.  1)  GO  TO  101 

YP=PONT ( Y J . YL . CHAT ( J . 1 ) .CHAT ( JL . 1 ) ) 

CALL  PLOT  (O.O.YP/DY.IC) 

IC=2 

XP=PONT(XI.XL.CMAT<J.I).CMAT( J.IL) ) 

CALL  PLOT(XP/DY.YJ/DY.IC) 

GO  TO  1 

WE  ARE  EXACTLY  ON  THE  SHORELINE 

IF  (II  .NE.  MM)  GO  TO  201 
CALL  PLOT(XI/DY.YJ/DY.IC) 

IF  (IC  .GT.  2)  GO  TO  204 

IC=3 

GO  TO  1 

IC=2 

GO  TO  1 

IF  (IC  .LE.  2)  GO  TO  207 

IF  (J  .LE.  1)  GO  TO  207 

YP»PONT(YJ.YL.CMAT(J.l).CMAT(JL.l)) 

CALL  PLOT  (O.O.YP/DY.IC) 

IC»2 

CALL  PL0T(XI/DY.YJ/DY.IC) 

IC»2 
GO  TO  1 


WE  ARE  STILL  OFF  SHORE?  KEEP  LOOKING  FOR  LAND 


087  C 
088  C 
089  300 
090 
091 
092 
093 
094 
095  2 
096  3 
097  1 
098 
099  C 

100  C 

101 
102 
103 


IF  (II  .NE.  MH)  GO  TO  2 

If  Ue  2)  SO  TO  1 
YP=PONT(YJ»YL»CMAT( J.l) .CMAT( JL»1) ) 
CALL  PLOT  (O.O.YP/DYtIC) 

IC=3 
GO  TO  1 
1  =  1-1 
CONTINUE 
CONTINUE 

RE-ORIGIN  THE  PLOTTER  AND  EXIT 

CALL  PL0T(0. fO. f-3) 

RETURN 

END 


001 
002  C 
^  003  C 

004  C 
005  C 
006  C 
007  C 
008  C 
009  C 
010  C 
on  c 
012  C 
013  C 
014  C 
015  C 
016  C 
017  C 
018  C 
019  C 
020 
021  C 
022 
023 
024  C 
025 
026 
027  C 
028 
029 
030  C 
031 
032 


SUBROUTINE  RAYN( X » Y i A. NPLOT » N»NHAX»LI » AV ) 


PURPOSE 


THIS  ROUTINE  CONTROLS  THE  CALCULATIONS  OF  THE  HAVE  PACKET 
PARTICULARS »  HOST  OF  THE  PRINTED  OUTPUT.  AND  THE  PLOTS  OF  THE 
WAVE  PACKET  PATHS. 


SUBROUTINES  REQUIRED 

SURFCE 

MOVE 

HEIGHT 

PCD 

ANGCON 

PAGCOL 

STORE 

DRAW 

IMPLICIT  REAL»8  <A-H,0-Z) 


ROUTINE  TO  COMPUTE  RAY  PARTICULARS 

ROUTINE  TO  MOVE  THE  WAVE  PACKET  ALONG  ITS  PATH 

ROUTINE  TO  COMPUTE  THE  HAVE  HEIGHT 

ROUTINE  TO  COMPUTE  SOME  PERCENT  DIFFERENCES 

ROUTINE  TO  CONVERT  ANGLES  FOR  PRINTOUT 

ROUTINE  TO  PRINT  PAGE  AND  COLUMN  HEADINGS 

ROUTINE  TO  STORE  PATH  COORDINATES 

ROUTINE  TO  DRAW  THE  RAY  PATH 


DIMENSION  C0NTURD<9).EM<6»12) .S(6»6) 

DIMENSION  C<12) .CX(12) .CY(12).E(6>.EX(6).EY(6) 

COMMON  /GRDCOM/  CMAT< 120. 120) »  CURX( 120. 120) .  CURY ( 120. 120) . 

1  CURR<120.120)»  AX(4500).  AY(4500) 

COMMON  /PRTC0M/  HT.MXPLOT.NOR.NPT.NAX.NSH.NCO.NCC.NXCMAT. 

1  MH.NN.NNSKIP 

COMMON  /MAICOM/  ALFA. AMM. ANN, CF. CIN. CNVRSA. CUNTURD. DATEl .DATE2. 
1  DCON.DELTAT.DIR.DY.EM.GRID.HGTZ.AKRTOL.PROJCT. 


3 


NOLINE* I flg»moe»nflect.nfra(:t,nrflbu,nrfrbu»nropt 


034 
035  C 
036 
037 
033 
039 
040 
041  C 
042 
043 
044 
045 
046 
047  C 
048  C 
049  C 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059  C 
060  C 
061  C 
062  C 
063 
064 
065  C 
066  C 
067  C 
068 
069 
070 
071 
072 
073 
074 
075 
076  C 
077  C 
078  C 
079 
080 
081 
082  C 
083  C 
084  C 
085 
086 


COMMON  /RAYCOM/ 


1 

2 

3 

4 


BDZ*C.CX*CY.D*DELA*DEP*DGDX*lJHDX*E*EX*EY,G*GZERO* 
HGT*AKFC*AKR*AKS.P0T*PREV*P1*P2*P3*P4*P5*Q0T,Q1 * 
Q2*Q3*Q4*Q5*PU*SVV*PDEP*SPREV.6TZER0* 
PALFA*SVAV*PG*U*V.IH6T* 

NTQREF* INUM*MAXQ*NUMT*NOREF 


COMMON  /SRFCOM/ 

1 

2 

3 

4 


ND.NC.CCON*TTT.ARAY*GR*GT*SARAY.PZ*PZD* 

CALFA.PCALFA*PARAY*PREVT*SPREVT.VT*SVT.ASV* 

Z  *  ZD  *  BZ . KMAX  *  PX  *PY  *  PTTT . PANGLE  *  PGR . PPCTD  *  PPCTCX  * 
PPCTCY*PGT.SVBZ*SVBDZ*KNUMT*KRFLBU.KRFRBU*CDGDX* 
UMX.A6R.PGAH*PBZ*PBDZ*PFK.PV*PVT 


SET  INITIAL  VALUES  FOR  THIS  RAY 


NDP=1 

NFK  =  1 

NG0=1 

KREST=0 

KCIN=0 

N0REF=0 

BZ=1 .DO 

BDZ=0.D0 

IHGT=1 


CALL  SURFCE*  MOVE*  AND  HEIGHT  TO  DETERMINE  VALUES  AT 
THE  FIRST  RAY  POINT 


CALL  SURFCE ( X  *  Y  *  A  *  FK  *  NFK  *  NDP  * lUAVIT  *  AV ) 
IH6T*0 


SET  INITIAL  VALUES  FOR  THIS  RAY 


INUM=0 

PALFA*ALFA 

SVV=V 

PREV»SVV 

SVT=VT 

6ZER0«G 

GTZERO=GT 

TIMEQ=0. 


COMPUTE  VALUES  AT  THE  INITIAL  RAY  POINT 

CALL  MOVE(X*Y*A*FK*NGO*MIT*NFK*NDP*AV*LI) 

CALL  HEIGHT (X*Y* A *FK*NGO*MIT*NFK*NDP*AV) 

GO  TO  160 


CHECK  FOR  AX*  AY  ARRAY  LIMITS  EXCEEDED 
MAXQsHMAXQ 

IF  (MAXQ+KCIN  .LT.  MMAX)  60  TO  399 


087  WRITE  (6r401) 

088  GO  TO  190 

089  399  SAOEGR=GR 

090  C 

091  C  DETERMINE  NEXT  RAY  POINT 

092  C 

093  CALL  NOVE(X.Y»A.FK»NGO.MIT»NFK»NDP,Ay»LI) 

094  IF  (NDP  .EG.  1)  GO  TO  396 

095  C 

096  C  RAY  REACHED  SHORE 

097  C 

098  402  WRITE  (6.403) 

099  MAXQ=MAXQ-1 

100  GO  TO  190 

101  C 

102  C  CHECK  RETURNED  STATUS 

103  C 

104  396  GO  TO  ( 397 , 397 . 404 . 514 .515. 1900 . 516 . 528 )  .MIT 

105  C 

106  C  PACKET  CURVATURE  ITERATION  NOT  CONVERGING 

107  C 

108  404  WRITE  (6.405) 

109  GO  TO  571 

no  C 

111  C  A  CAUSTIC  OR  FOCAL  POINT  ENCOUNTERED 

112  C 

113  514  WRITE  (6.504) 

114  GO  TO  571 

115  C 

116  C  THE  WAVE  BROKE 

117  C 

118  515  WRITE  (6.505) 

119  GO  TO  571 

120  C 

121  C  SOME  SORT  OF  REFLECTION  HANGUP  ENCOUNTERED 

122  C 

123  516  WRITE  (6.517) 

124  GO  TO  571 

125  C 

126  C  BREAKUP  TIME  STEP  WAS  LESS  THAN  0.5  SECONDS 

127  C 

128  528  WRITE  (6.529) 

129  571  MAXQ»MAXQ-1 

130  GO  TO  190 

131  C 

132  C  COMPUTE  TRAVEL  TIME  ALONG  THE  RAY 

133  C 

134  397  TIMEQ«TIMEQ+(D«GRID/a800.»(GR+SAVEGR) ) ) 

135  160  IF  (ND  .NE.  0)  CALL  PCD(C.E.PCTD) 

136  IF  (NC  .EQ.  0)  GO  TO  614 

137  CALL  PCD(CX.EX.PCTCX) 

138  CALL  PCD(CY.EY.PCTCY) 

139  614  IF  (MAXQ  .EQ.  1  .OR.  MOO(MAXQ.NSK)  .EQ.  0)  GO  TO  3041 
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140 

141  C 

142  C 

143  C 

144  3041 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166  616 

167 

168  C 

169  C 

170  C 

171  161 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 


GO  TO  161 

WRITE  RAY  PARTICULARS  FOR  SELECTED  RAY  POINTS 

ANGL£=A 

CALL  ANGCON(ANGLE>CNVRSA) 

GAH=AV 

CALL  ANGCCN(GAM.CNVRSA) 

ARAY1=ARAY 

CALL  ANGC0N<ARAY1>CNURSA) 

ZDP=ZD 

CALL  ANGCON<ZDP>CNURSA) 

IF  (HOD(NOLINE,LI)  .EQ.  0)  CALL  PAGCOL(NPLOT»N) 
N0LINE=NQLINE+1 

WRITE  (6*612)  <MAXQ*X*Y,0EP*Z*ZDP*TTT*ARAY1* 

1  ANGLE* GAH*G*GR*HGT*AKS*AKFC*AKR) 

IF  (NPT  .EQ.  0)  GO  TO  161 
ALFAP=ALFA/1 .74532925D-2 
CALFAP=CALFA/1 .745329250-2 

IF  (M0D(N0LINE*LI)  .EQ.  0)  CALL  PAGC0L(NPL0T*N) 
N0LINE=NQLINE+1 

WRITE (6* 615)  ALFAP*PCTD*CALFAP*PCTCX*PCTCY*GT* 

1  U*V*VT*BZ*BDZ*NUMT*FK 

IF  (NUMT  .LE.  1)  GO  TO  161 
IF  (NRFLBU  .EQ.  0)  GO  TO  616 
WRITE(6*617) 

IF  (NRFRBU  .EQ.  0)  GO  TO  161 
WRITE(6*618) 

SAVE  PRINTOUT  VALUES 

KRFLBU=NRFLBU 

XRFRBU=NRFRBU 

NRFLBU=0 

NRFRBU«0 

KNAX-HAXQ 

PX=X 

PY=y 

PDEP=DEP 

PZ=Z 

PZD»ZD 

PTTT*TTT 

PARAY»ARAY 

PANGLE=A 

PGAH=AV 

PCR«GR 

PG-G 

PHGT-HGT 

PKS»AKS 

PKFC»AKFC 

PKR*AKR 

PALFA*ALFA 

IF  (NPT  .EQ.  0)  GO  TO  613 


k  .* 

\  s."  ^  '•* .  •*  ■■  V  ’y  ■"  ■> 

h  , 

u 

ir- 

k,' 

79 

193 

PPCTD=PCTD 

194 

PCALFA=CALFA 

rl  ^ 

195 

PPCTCX=PCTCX 

196 

PPCTCY=PCTCY 

r/ 

197 

PGT=GT 

r«  • 

198 

PU=U 

199 

PV=0 

[••; 

200 

PVT=0T 

1 

201 

PBZ=BZ 

.*• 

202 

PBDZ=BDZ 

'  % 

203 

KNUMT=NUMT 

5 

204 

PFK=FK 

205 

C 

206 

C 

STORE  THE  CURRENT  RAY  POSITION  FOR  LATER  PLOTTING 

1 

207 

C 

208 

613 

CALL  STORE(X»Y.A»KMAX»TIMEQ.KCINtKREST) 

209 

IF  (MIT  .EQ.  1)  GO  TO  10 

4.*, 

210 

IF  (MOD(NOLINE.LI)  .EQ.  0)  CALL  PA(>COL ( NPLOT . N ) 

211 

N0LINE=N0LINE+1 

212 

C 

213 

C 

PACKET  CURVATURE  WAS  AVERAGED 

214 

C 

’»>  * 

215 

WRITE  (6*9)  MAXQ 

216 

10 

IF  (MAXQ  .GT.  1)  GO  TO  13 

»*. 

217 

GO  TO  (3.402).NDP 

1  V 

218 

13 

IF  (NGO  .EQ.  1)  GO  TO  3 

219 

C 

220 

C 

RAY  REACHED  GRID  BOUNDRY 

f  - 

221 

c 

222 

WRITE  (6f407) 

223 

190 

IF  (MAXQ  .LE.  1  .OR.  MOO(MAXQ>NSK)  .EQ.  0)  GO  TO  1900 

a 

224 

C 

• 

225 

C 

WRITE  RAY  PARTICULARS  FOR  THE  LAST  POINT 

w* 

226 

c 

w', 

L* 

227 

CALL  ANGCON  (PANGLEf CNVRSA) 

n‘ 

j 

228 

CALL  ANGCON  (PGAMt CNVRSA  ) 

‘  V 

229 

CALL  ANGCON  (PARAYf CNVRSA) 

ri 

230 

CALL  ANGCON  (PZDfCNVRSA) 

231 

IF  (MOD(NOLINEfLI)  .EQ.  0)  CALL  PAGCOL (NPLOT »N)  ' 

232 

N0LINE»N0LINE+1 

,  - 

233 

WRITE  (6f612)  KMAX»PX»PY»PDEP»PZ»PZD»PTTTfPARAY»PANGLE»PGAMfPG» 

;■■ 

234 

1  PGR,PHGT.PKS»PKFC»PKR  | 

rj 

235 

IF  (NPT  .EQ.  0)  GO  TO  1900 

236 

PALFA»PALFA/1 .74532925D-2 

237 

PCALFA=PCALFA/1 .74532925D-2 

» 

238 

IF  (MOD(NOLINE»LI)  .EQ.  0)  CALL  PAGCOL ( NPLOT . N ) 

►  t 

239 

WRITE (6» 615)  (PALFAfPPCTD.PCALFA»PPCTCX»PPCTCY»PGT» 

-■• 

240 

1  PUfPV.PVT»PBZ»PBDZ»KNUMT»PFK) 

241 

IF  (KNUMT  .LE.  1)  GO  TO  1900 

J  -» 

242 

IF  (KRFLBU  .EQ.  0)  GO  TO  619 

243 

HRITE(6»617) 

244 

619 

IF  (KRFRBU  .EQ.  0)  GO  TO  1900 

d 

245 

WRITE(6>618) 

30 


246  C 

247  C  DRAW  THE  RAY  PATH 

248  C 

249  1900  CALL  DRAW(Nf KMAX »KCIN»KRE3T) 

250  RETURN 

251  401  F0RMAT(80X»35HDIMENSI0N  OF  OUTPUT-ARRAYS  EXCEEDED) 

252  403  F0RMAT(80Xf 17HRAY  REACHED  SHORE) 

253  405  F0R«AT(80Xf41HPACXET  CURVATURE  ITERATION  NOT  CONVERGING) 

254  504  F0RMAT(80Xf22HCAUSTIC  OR  FOCAL  POINT) 

255  505  F0RHAT(80X>11HUAVE  BREAKS) 

256  517  F0RMAT(80X»18HREFLECTI0N  HAM6-UP) 

257  529  FORMAT (80X»38HBREAKUP  TIME  STEP  LESS  THAN  0.5  SECOND) 

258' 612  F0RMAT(1X»I5»2F8.2»2(F9.2»F9.4),3F8.2»2F7.2»4F9.4) 

259  615  F0RMAT(2X»0PF9.2»F8.2»0PF9.2»2FS.2»4F7.2»F8.4»lXf lPE10.3»9Xf I5» 

260  1  1X»1PE10.3) 

261  617  F0RMAT(lH+f93Xf7HREFLECT) 

262  618  F0RMAT(1H+»96X#4HBETA) 

263  9  F0RMAT(80X#4HMAX=#I4»27H,  PACKET  CURVATURE  AVERAGED) 

264  407  F0RMAT(80X#25HRAY  REACHED  GRID  BOUNDARY) 

265  END 


266  SUBROUTINE  AN6C0N( ANGtCNVRSA) 

267  C 

268  C  PURPOSE 

269  C 

270  C  THIS  ROUTINE  DEFINES  ANGLES  UITH  RESPECT  TO  TRUE  NORTH 

271  C  AND  PLACES  THEM  IN  THE  RANGE  0  TO  360  DEGREES  FOR  PRINTOUT. 

272  C 

273  C  SUBROUTINES  REQUIRED 

274  C 

275  C  NONE 

276  C 

277  IMPLICIT  REALI8  (A-H»0-Z) 

278  C 

279  C  CONVERT  THE  ANGLE 

280  C 

281  ANG»ANG/1.74532925D-2 

282  ANG«CNVRSA-ANG-F180.D0 

283  C 

284  C  FORCE  IT  INTO  0  ->  360  DEGREES 

285  C 

286  51  IF  (ANG  .GE.  0.00)  GO  TO  50 

287  ANG«ANG-f360.00 

288  60  TO  51 

289  50  IF  (ANG  .LT.  360. DO)  GO  TO  52 

290  ANG>ANG-360.D0 

291  GO  TO  50 

292  C 

293  C  THEN  EXIT 

294  C 

295  52 


RETURN 


297  SUBROUTINE  PAGCOL ( NPLOT .N ) 

298  C 

299  C  PURPOSE 

300  C 

301  C  THIS  ROUTINE  PRINTS  THE  PAGE  AND  COLUMN  HEADINGS  AT  THE 

302  C  TOP  OF  A  NEW  PAGE. 

303  C 

304  C  SUBROUTINES  REQUIRED 

305  C 

306  C  NONE 

307  C 

308  IMPLICIT  REAL»8  (A-H»0-Z) 

309  C 

310  DIMENSION  CONTURD ( 9 ) » EM< 6» 12) . S( 6» 6 ) » C ( 12 ) » CX ( 12 ) . CY ( 12 ) 

311  DIMENSION  E ( 6 ) . EX (6 ) . EY < 6 ) 

312  C 

313  COMMON 

314  1 

315  COMMON 

316  1 

317  2 

318  3 

319  COMMON 

320  1 

321  2 

322  3 

323  4 


324 

C 

325 

C 

WRITE 

OUT 

THE  HEADINGS 

326 

C 

327 

WRITE 

(6»7)  (PROJCT 

»DATElfDATE2»NPL0T>TT>N»DELTAT»CF.AKRT0L) 

328 

C 

329 

C 

CHECK 

FOR 

SECOND  LINE  OF  PAGE  HEADINGS 

330 

C 

331 

IF  (MAXQ  .NE.  1) 

GO 

TO  453 

332 

C 

333 

C 

CHECK 

FOR 

METRIC  <— >  ENGLISH  UNITS 

334 

C 

335 

IF  (MOE  .NE.  0) 

60 

TO  465 

336 

. 

WRITE 

(6»470) 

337 

GO  TO 

453 

338 

465 

WRITE 

(6»471) 

339 

C 

340 

C 

PRINT 

OUT 

COLUMN  HEADINGS 

341 

C 

342 

453 

WRITE 

(6>150) 

343 

C 

344 

C 

CHECK 

FOR 

USER-REQUESTED  EXPANDED  PRINTOUT 

345 

C 

/PRTCOM/  HT»MXPLOT»NOR»NPT»NAX»NSH»NCO»NCC»NXCMAT, 
MM>NN>NNSKIP 

/MAICOM/  ALFA»AMMtANN»CFfCIN»CNVRSA»C0NTURD»DATEl»DATE2» 
DC0N»DELTAT»DIR»DY,EM»GRID»HGT2»AKRT0L»PR0JCT, 
S»SDLTAT»NSK»7T.NWBRK»NBRKUP»NFAN»NKLAGR» 
NOLINE»IFLG»HOE»NFLECT»NFRACT»NRFLBU»NRFRBU»NROPT 
/RAYCOM/  BDZ»C»CX,CY»DfDELAfDEP»DGDX»DHDX»E»EX,EY»GfGZERO» 
HGT»AKFC»AKR,AKS»P0T>PREV>P1»P2>P3>P4»P5.Q0T.Q1. 
Q2»Q3»Q4,Q5»PU»SVV»PDEP»SPREV»GTZER0» 
PALFA»SVAV»PG»U»V»IHGT» 
NTOREF»INUMfHAXQfNUMT>NOREF 


82 


346 

347 

348  C 

349  C 

350  C 

351  160 

352 

353  C 

354  C 

355  C 

356  7 

357 

358 

359 

360  150 

361 

362 

363 

364  155 

365 

366 

367 

368  165 

369  470 

370 

371  471 

372 


001 
002  C 
003  C 
004  C 
005  C 
006  C 
007  C 
008  C 
009  C 
010  C 

on  c 

012  C 
013  C 
014  C 
015  C 
016 
017  C 
018 
019 
020  C 
021 
022 


IF  (NPT  .EQ.  0)  GO  TO  160 
WRITE(6.155) 

DOUBLE  SPACE  THEN  EXIT 

WRITE  (6>165) 

RETURN 


FORMAT  SECTION 


FORMAT  (lHni2HPR0JECT  NO.  »A6»  1H»  >2X>2A6nH>  >5X>8HPLUT  N0.fI3» 

1  lH>nX»7HPERI003»F5.1»4HSEC.nH>f  1X>7HRAY  N0.>I3»lH»f 

2  1X»7HDELTAT  =  »F6.2»1H»»1X»3HCF=»F8.6»1H»  »1X» 

3  6HKRT0LstF8.6t//) 

FORMAT  ( IX » 3HMAX 1 2X  t IHX . 7X » IHY . 7X » 5HDEPTH . 4X » 

1  6HCUR:SPt3Xt6HCUR:0I»3X»6HPERI0D>3X> 

2  3HRAYt5X.4HPACKt4Xt4HWAVE»4X»lHG.6X.2HGR.5X»3HHGTr6Xr2HKS»7X» 

3  2HKF»7Xt2HKR) 

FORMAT  (2Xt7HR0TAT:Dt2X.5HPCT:D.3X.7HR0TAT:C.2X. 

1  6HPCT:CX.2X.6HPCT:CY.2X.2H6T,5X. 1HU.6X. IHU. 

2  6X.2HVT.5X.4HBETA.4Xr8HDB£TA/DTr3X. 

3  6HBRK  UP»3X.2HN0.3X.9HCURyATURE) 

FORMAT  (IHO) 

F0RMAT<lXt51HTH£  OUTPUT  IS  IN  ENGLISH  UNITS.  DEPTH . HGT (FEET ) . 

1  28HG»GR»GT»U»V»VT(FEET/SEC0ND).f//) 

F0RMAT(1X»51HTHE  OUTPUT  IS  IN  METRIC  UNITS.  DEPTH»HGT(METER) . 

1  29HG»GR»GT»U»V»VT<METER/SEC0ND). »//) 

END 


FORMAT 


DEPTH. HGT(FEET) . 


DEPTH. HGT(METER). 


SUBROUTINE  MOVE(X.Y.A.FK.NGO.MIT.NFK.NDP. AV.LI ) 


PURPOSE 


THIS  SUBROUTINE  COMPUTES  THE  PATH  OF  THE  HAVE  PACKET.  TESTS 
ARE  MADE  TO  LOCATE  A  REFLECTION  POINT  AND.  IF  DESIRED.  THE 
RAY  PATH  IS  CONTINUED  BEYOND  THE  REFLECTION  POINT. 


SUBROUTINES  REQUIRED 

SURFCE 

ANGCON 

PAGCOL 

HEIGHT 

IMPLICIT  REAL*8  (A-H.O-Z) 


ROUTINE  TO  COMPUTE  HAVE  PARTICULARS 
ROUTINE  TO  CONVERT  ANGLES  FOR  PRINTOUT 
ROUTINE  TO  PRINT  PAGE  AND  COLUMN  HEADINGS 
ROUTINE  TO  COMPUTE  HAVE  HEIGHT 


DIMENSION  C0NTURD(9) .EM(6.12).S<6.6) 

DIMENSION  C(12).CX(12).CY(12).E(6).EX(6).EY(6) 

COMMON  /GRDCOM/  CHAT ( 120. 120) .  CURX ( 120. 120 ) .  CURY( 120. 120) . 
1  CURR(120.120).  AX(4500).  AY(4500) 


■V 
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023 
^  024 

025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 

K7  048 

049 

050 

051 

052 

053 

054 

055 

056 

057 

058 

059 

060 

061 

062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 


COMMON  /PRTCOM/ 


COMMON  /RAYCOM/ 


COMMON 


/PRTCOM/  HT»MXPLOT»NOR.NPT,NAX,NSH»NCO»NCC»NXCMAT» 
MM.NN.NNSKIP 

COMMON  /MAICOM/  ALFA. AMM » ANN» CF »CIN » CNORSA » CONTURD » DATEl » DATE2 > 
OCON.OELTAT.DIR.DY.EM.GK'IO.HOTZ.  AKRTOL.PK'OJCT. 
S.SDLTAT.NSK.TT.NUBRK.NBRKUP.NFAN.NFLAGR. 

NOLINE. IFLG.M0E.NFLECT.NFRACT.NRFL3U.NRFRBU.NR0PT 
/RAYCOM/  BDZ.C.CX.CY.D.DELA.DEP.DGDX.DHDX.E.EX.EY.G.GZERO. 

HGT. AKFC.AKR.AKS.P0T.PREV.ri.P2.P3.P4.P5.Q0T.Ql > 
Q2.Q3.Q4.Q5.PU.SVV.PDEP.SPREV.GTZER0. 
PALFA.SVAV.PG.U.V.IHGT. 

NTOREF . I NUM. MAXQ . NUMT . NOREF 
/SRFCOM/  ND.NC.CCON.TTT.ARAY.GR.GT.SARAY.PZ.PZD. 

CALFA . PCALFA » PARAY . PREVT . SPREVT . VT . SVT . ASV . 
Z.ZD.BZ.KMAX.PX.PY.PTTT.PANGLE.PGR.PPCTD.PPCTCX. 
PPCTCY.PGT.SVBZ.SVBDZ.KNUMT.KRFLBU.KRFRBU.CDGDX. 
UMX.AGR.PGAM.PBZ.PBDZ.PFK.PV.PVT 


INITIALIZE  QUANTITIES 

AAV=AV 

IUAVIT=1 

IF  (ND  .EQ.  1  .AND.  NC  .EQ.  1)  IUAVIT=0 

NUMT=1 

MIT  =  1 

N0REF*0 

SAVE  VALUES  IN  CASE  OF  BREAKUP  OF  TIME  STEP  INTEVAL 

SVGR=GR 

SVGT*GT 

SVA»A 

SVAAV>AAV 

SVTTT=TTT 

SVX*X 

SVY=Y 

IF  (MAXQ  .NE.  2)  GO  TO  3033 

SVFKB=FK 

GO  TO  203 

SVFKB=FKBAR 

SAVFK*FK 

IF  (MAXQ-2)  38.102.81 
FKBAR=FK 

ttttttttttttttttxttttiiiiitittt 

tttttxttttttttttttttxxxxxxxtttt 

tt  tt 

tt  BEGIN  ITERATION  SEGMENT  tt 

tt  tt 

ttttttttttttttttttttttttttttttt 
ttttttttttttttttttttttttttttttt 

ITERATE  TO  FIND  VALUES  FOR  THE  NEXT  POINT 
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076  81 
077  C 
078  C 
079  C 
080 

081  39 
082 
083 
084 
085  C 
086  C 
087  C 
088  C 
089 
090 
091 
092 
093  C 
094  C 
095  C 
096  206 
097 
098 
099  C 

100  C 

101  C 

102  75 

103 

104 

105 

106 

107  C 

108  C 

109  C 
no  C 
111 
112 

113  C 

114  C 

115  C 

116  86 

117 

118  101 

119 

120 
121 

122  88 

123  37 

124  5 

125 

126  C 

127  C 

128  C 


DO  20  IT=1»50 

COMPUTE  THE  INCREMENTAL  DISTANCE  TO  THE  NEXT  RAY  POINT 

D=(GRtDELTAT)/GRID 

DELA=FKBAR*D 

AA=A+DELA 

ABAR=A+C.5tDELA 

IF  (NC  .EQ.  1  .OR.  DABS(Z)  .6T.  l.D-6)  GO  TO  206 

COMPUTE  COMPONENT  INCREMENTAL  DISTANCES  WHEN  THERE  IS 
NO  CURRENT 

DELX=D1:DC0S<ABAR) 

DELY=DtDSIN(ABAR) 

ARAY=AA 
GO  TO  75 

COMPUTE  INCREMENTAL  DISTANCES  WHEN  THERE  IS  A  CURRENT 

DELX*  ( GJtDCOS  ( ABAR ) +ZtDCOS(  ZD  )>*DELT  AT/GRID 
DELY=(G*DSIN(ABAR)+ZtDSIN(ZD))*DELTAT/GRID 
ARAY=DATAN2(DELYtDELX) 

DETERMINE  THE  LOCATION  OF  THE  NEXT  POINT 

XX=X+D^LX 

YY=Y+DELY 

CALL  SURFCE<XX>YY*AAfFKK»NFK»NDP»IWAUITfAAU) 

avp»aav-alfa 

IF  (NTOREF  ,EQ.  0)  GO  TO  86 

REFLECTION  HAS  BEEN  DETERMINED  ON  THE  BASIS  OF  SNELL'S 
LAW  WITH  PHASE  VELOCITY 

NREF=1 
GO  TO  13 

DETERMINE  IF  THE  PHASE  SPEED  IS  INCREASING  OR  DECREASING 
DUD=SVV/PREV 

GO  TO  (101f6f38f38f38f38f38f38)fMIT 
IF  (NDP  .EQ.  2)  GO  TO  38 
FKBAR»0.5I(FK+FKK) 

IF  (IT  .NE.  49)  GO  TO  88 
SVFK-FKBAR 
IF  (IT-48)  5f37f9 
FKKPP»FKBAR 

IF  (MAXQ  .GT.  2)  GO  TO  9 
IF  (IT  .LE.  1)  GO  TO  21 

TEST  FOR  CONVERGENCE  OF  THE  RAY  CURVATURE  CALCULATIONS 
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129  9 

130 

131  21 

132  20 

1 33  C 

134  C 

135  C 

136  C 

137  C 

138  C 

139  C 

140  C 

141  C 

142  C 

143  C 

144 

145 

146 

147  C 

148  C 

149  C 

150 

151  161 

152 

...  153  C 

154  C 

155  C 

156  C 

157  C 

158  91 

159 

160  18 
161 
•162 

163  6 

164  C 

165  C 

166  C 

167 

168 

169 

170  C 

171  C 

172  C 

173  C 

174  C 

175  C 

176  C 

177 

178  C 

179  C 

180  C 

181  C 


IF  (DABS(FKKP-FKBAR)  .LE.  0.00009DO/D  .AND. 

1  lUAVIT  .EQ.  1  )  GO  TO  6 

FKKP  =  FKBAR 
CONTINUE 

xttttttiixtxxtittttittttttttt 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XX  XX 

XX  END  ITERATION  SEGMENT  XX 

XX  XX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DETERMINE  IF  THE  RAY  CURVATURE  IS  CONVERGING  TO  TWO  VALUES 

IF  <DABS<FKKPP-FKBAR)  .LE.  0.00009D0/D  .AND.  IWAVIT  .EQ.  1) 

1  GO  TO  18 
IF  (ND  .EQ.  0)  GO  TO  161 

DETERMINE  IF  CONVERGENCE  FAILED  DUE  TO  A  REFLECTION  POINT 

IF  (DUD  .GT.  1.0  .AND.  DABS ( DTAN( AVP ) )  .GT.  5.6712818D0)  GO  TO  91 

MIT=3 

GO  TO  38 

REFLECTION  IS  ASSUMED  IF  THE  PHASE  SPEED  IS  INCREASING  AND 
THE  WAVELET  DIRECTION  IS  WITHIN  10  DEGREES  OF  BEING  PARALLEL 
TO  THE  WATER  DEPTH  CONTOUR 

NREF=2 
GO  TO  13 

FKBAR*. 5»(FKBAR+SVFK) 

MIT*2 
GO  TO  39 

IF  (ND  .EQ.  0)  GO  TO  92 

CHECK  TO  SEE  IF  WE  ARE  TOO  CLOSE  TO  A  REFLECTION  POINT 
IF  (DUO  .LE.  1.0  .OR. 

1  DABS(OTAN(AVP) )  .LE.  114.S88650D0  .OR. 

2  DABS(DTAN(A-ALFA) )  .GE.  3.7320508DO)  GO  TO  92 

REFLECTION  IS  ASSUMED  IF  THE  PHASE  SPEED  IS  INCREASING^ 

THE  WAVELET  DIRECTION  IS  WITHIN  0.5  DEGREES  OF  BEING 
PARALLEL  TO  THE  HATER  DEPTH  CONTOUR*  AND  THE  HAVE  PACKET 
DIRECTION  IS  WITHIN  75  DEGREES  OF  BEING  PERPENDICULAR  TO 
THE  HATER  DEPTH  CONTOUR 


NREF*3 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XX  XX 
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182  C 

183  C 

184  C 
135  C 

186  C 

187  13 

188  C 
139  C 

190  C 

191 

192  C 

193  C 

194  C 

195 

196 

197  C 

198  C 

199  C 

200  305 

201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216  C 

217  C 

218  C 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 


tt  BEGIN  REFLECTION  SEGMENT  tX 

tt  tt 

tttttttttttttttttttttttttttttttt 
ttttttttttttttittttttttttttxfiti 

N0REF=N0REF+1 

TEST  FOR  REFLECTION  HANG-UP 
IF  (NOREF  .LT.  2)  GO  TO  305 

MORE  THAN  ONE  REFLECTION  HAS  OCCURED  AT  THE  SAME  POINT 

MIT=7 
GO  TO  38 

RECQUER  SAUED  VALUES  FOR  PREVIOUS  POINT  AND  SET  QUANTITIES 

DELTAT=SDLTAT 

A=PANGLE 

ASV=A 

SVAVsPGAM 

ALFA*PALFA 

X=PX 

Y=PY 

HUMT»1 

IFLQ=0 

INUMsO 

NBRKUPsO 

HFLECTsO 

NRFLBU=0 

NFRACT=0 

NRFRBU=0 

IF  (MAXQ  .LE.  1  .OR.  MOD(MAXQf NSK)  .EQ.  0)  GO  TO  1900 

RAY  PARTICULARS  NEED  TO  BE  WRITTEN  FOR  THE  REFLECTION  POINT 

CALL  ANGCON  (PANGLE»CNVRSA) 

CALL  ANGCON  (PGAM.CNVRSA) 

CALL  ANGCON  ( PARAY . CNVRSA ) 

CALL  ANGCON  (PZD»CNVRSA) 

IF  (MOD(NOLINE»LI)  .EQ.  0)  CALL  PAGCOL(NPLOT.N) 

NOLINE^NOLINE+1 

WRITE  (6»612)  KMAX.PX»PYfPDEP»PZfPZD»PTTT» 

1  PARAY » PANGLE » PGAM » PG  t  PGR . HGT . AKS » AKFC  r  AKR 

IF  (NPT  .EQ.  0)  GO  TO  1900 
WALFA=P ALFA/1 . 74532925D-2 
WCALFA*PCALFA/1 .74532925D-2 

IF  (MOD(NOLINE»LI)  .EQ.  0)  CALL  PAGCOL(NPLOTf N) 

N0LINE*N0LINE+1 

WRITE(6»615)  WALFAfPPCTDfUCALFAfPPCTCXrPPCTCYrPGT. 

1  PU»PV»PVT»PBZ»PBDZ»KNUMT.PFK 

IF  (KNUMT  .LE.  1)  GO  TO  1900 


•j 


235  IF  (KRFLBU  .EQ.  0)  GO  TO  619 

236  WRITE(6f617) 

237  619  IF  (KRFRBU  .EQ.  0)  GO  TO  1900 

233  WRITE(6»613) 

239  1900  IF  (MOD(NOLINE>LI)  .£0.  0)  CALL  PA6C0L ( NPLOT t N ) 

240  C 

241  L  WRITE  OUT  TYPE  OF  REFLECTION 

242  C 

243  3044  GO  TO  ( 97 i 98 t 99 ) i NREF 

244  97  WRITE  (6»152)  (KMAX) 

245  GO  TO  300 

246  98  WRITE  (6»153)  (KMAX) 

247  GO  TO  300 

248  99  WRITE  (6»154)  (KMAX) 

249  300  N0LINE=N0LINE+1 

250  14  IF  (NROPT  .NE.  0)  GO  TO  301 

251  C 

252  C  RAY  IS  NOT  CONTINUED 

253  C 

254  MIT=6 

255  GO  TO  38 

256  301  NT0REF=0 

257  C 

258  C  COMPUTE  REFLECTION  ANGLES 

259  C 

260  SyAV=2.lALFA-SUAV+3.141592654D0 

261  A=2.«ALFA-A+3.141592654D0 

262  ARAY=2.»ALFA-ARAY+3.141592654D0 

263  AV=SVAU 

264  AAVsSUAy 

265  IHGT=1 

266  CALL  SURFCE(X»Y»A»FK»NFKfNDP»IWAVIT»SVAVfCMATfCURXfCURY»AXfAY) 

267  IHGT=0 

268  C 

269  C  SET  QUANTITIES  FOR  REFLECTION  POINT 

270  C 

271  SVV=V 

272  PREV=SVV 

273  SVT*UT 

274  BDZ=-BDZ 

275  PATI*POT 

276  QATI=QOT 

277  NFLAGR»1 

278  GO  TO  102 

279  C 

280  C 

281  C  tttttttttttttttttttttttxtttttt 

282  C  tt  tt 

283  C  tt  END  REFLECTION  SEGMENT  tt 

284  C  tt  tt 

285  C  tttttttttttttttttttttttttttttt 

286  C  tttttttttttttttttttttttttttttt 

287  C 


,  flD-fll34  879  CALCULATION  OF  WAVE  PACKET  TRAJECTORIES  AND  WAVE 
'  HEIGHTS  FOR  VARIABLE  WAT.  .  <U)  FLORIDA  INST  OF  TECH 

HELBOURNE  DEPT  OF  OCEANOGRAPHV  AND  OCEAN.  . 
UNCLASSIFIED  J  E  BREEDING  ET  AL.  SEP  82  TR-JEB-11  F/G  8/3 


DETERMINE  IF  POINT  IS  TOO  CLOSE  TO  A  GRID  BOUNDARY 


288  C 

289  C 

290  92  IF  ( (XX-1 .5)*( (AMM-1.5)-XX)  ,GE.  0.0  .AND. 

291  1  (YY-1 .5)l( (ANN-1 .5)-YY)  .G£.  0.0)  GO  TO  30? 

292  NG0=2 

293  C 

294  C  UPDATE  QUANTITIES  AND  SAUE  VALUES  IN  CASE  OF  BREAKUP  OF  THE 

295  C  TIME  STEP  INTERVAL 

296  C 

297  309  XS=XX 

298  YS=YY 

299  SVAV=AAV 

300  IF  (ND  .EQ.  1  .AND.  NC  .EQ.  1)  IUAVIT=0 

301  ASV=A 

302  SPREV=PREV 

303  PREV=SVV 

304  SVV=V 

305  SPREVT=PREVT 

306  PREVT=SVT 

307  SVT=VT 

308  IF  (NC  .EQ.  0  .AND.  DABS<2)  .LT.  l.D-6)  ARAY=AA 

309  AAA=.5*( AA+A) 

310  A»AA 

311  AAAVs.S«(  AAV-fAV) 

312  AV*AAV 

313  FK=FKK 

314  IF  (NFLECT  .EQ.  1)  GO  TO  40 

315  C 

316  C  COMPUTE  P  AND  Q  FOR  THE  INTERMEDIATE  POINTS 

317  C 

318  XXsX-F<1.0D0/3.0D0)IDELX«<DABS<DC0S(AAA)  ) ) 

319  YY=Y+(1.0D0/3.0D0)IDELY«(DABS(DSIN(AAA) ) ) 

320  IHGT*1 

321  CALL  SURFCE(XX,YY»AAA,FKK»NFK»NDP»IWAVIT.AAAV) 

322  P1*P0T 

323  Ql=a0T 

324  XX>X+. 4tDELXt <DABS<DCOS<  AAA) )) 

325  YY»Y+.4«DELY«<DABS<DSIN<AAA))) 

326  CALL  SURFCE<XX»YY»AAA»FKK»NFK»NDP.IUAVIT.AAAV) 

327  P2=P0T 

328  Q2=a0T 

329  XX»X+.45573725D0*DELXI<DABS(DC0S<AAA)  )  ) 

330  YY= Y+.45573725D0*DELY*( DABS (DSIN< AAA  )  ) ) 

331  CALL  SURFCE<XX»YY.AAA»FKK»NFK»NDP»IUAVITrAAAV) 

332  P3*P0T 

333  Q3*aOT 

334  XX»X+<2.D0/3.D0)*DELX<<DABS<DC0S(AAA) ) ) 

335  YY»Y+<2.D0/3.D0)*DELYI<DABS<DSIN<AAA) ) ) 

336  CALL  SURFCE<XX,YY»AAA»FKK»NFK»NDP»IWAVIT»AAAV) 

337  P4»P0T 

338  Q4*Q0T 

339  XX>X4-.8XDELX«<DABS<DC0S<AAA))  ) 

340  YY=Y+.8»DELY»<DABS<DSIN<AAA)) ) 
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iv. . 
►.-.v 

341 

CALL  SURFCE(XX»YY»AAA»FKK>NFK>NDF'>  IUAOIT»AAAV) 

_ 

342 

P5=P0T 

s 

343 

Q5=Q0T 

344 

CALL  SURFCE  < XS » YS» AA » FKK » NFK f NDP » IWAOIT > AAV ) 

345 

rHGT=0 

346 

40 

X=XS 

•* , 

347 

Y=YS 

L.  ■■  < 

348 

CALL  HEIGHT (X>Y>A>FK>NGO»MrTrHFK»MDPfAV) 

Bl 

349 

IF  (NBRKUP  .EQ.  0)  GO  TO  38 

V  • « 

350 

C 

351 

C 

RECOVER  SAVED  VALUES  BECAUSE  OF  THE  BREAKUP  OK  THE  TIME 

•* 

.‘.V 

352 

C 

STEP  INTERVAL 

1-'  *-* 

353 

C 

a 

354 

IF  (IFLG  .NE.  0)  GO  TO  203 

355 

GR»SVGR 

/  . 

356 

GT=SVGT 

C"'-. 

357 

SVV=PREV 

358 

PREV=SPREV 

• 

359 

SVT=PREVT 

360 

PREVT=SPREVT 

361 

A»SVA 

• . 

362 

AAV=SVAAV 

'• 

363 

AUsSVAAV 

* 

364 

SVAV=SVAAV 

",  % 

1.  '*• 

365 

IF  (MAXQ  ,NE.  2)  GO  TO  311 

•' 

O’ 

366 

FK»SVFKB 

367 

GO  TO  312 

368 

311 

FKBARaSVFKB 

*- 

369 

FKaSAVFK 

370 

312 

TTT»SVTTT 

371 

X*SVX 

9 

372 

Y-SVY 

373 

GO  TO  203 

./*/ 

374 

38 

RETURN 

375 

C 

376 

C 

FORMAT  SECTION 

-=-*-^ 

377 

C 

m 

378 

152 

F0RMAT(1X»5HMAX  »»I4»1H»»5X» 

379 

1  43HREFLECTI0N:  SNELLS  LAW  WITH  PHASE  VELOCITY) 

380 

153 

FORMAT (1X»5HMAX  »» I4» 1H» »5X» 13HREFLECTI0N: 

•.’■i 

381 

1  41HPACKET  CURVATURE  ITERATION  MOT  CONVERGING) 

382 

154 

FORMAT! 1X»5HMAX  *» I4» 1H» »5X»34HREFLECTI0N;  NEAR  REFLECTION  POINT) 

pM^ 

383 

612 

FORMAT  (1X»I5»2F8.2»2(F9.2»F9.4)»3F8.2»2F7.2»4F9.4) 

384 

615 

F0RMAT(2X»0PF9.2>F8.2»0PF7.2»2F8.2»4F7.2»F8.4»1X»1PE10.3»9X»I5» 

111!' 

385 

1  1X»1PE10.3) 

386 

617 

FORMAT (1H+»93X»7HREFLECT) 

• 

387 

618 

F0RMAT(1H+»96X>4HBETA) 

'.C 

388 

END 

r9‘ 

’*  '■ 

001 

SUBROUTINE  HEIGHT (X»Y»A»FK»NGO»MIT»NFK»NDP»AV) 

002 

C 

•’  •**  V 

.■*-  4,'* 

PURPOSE 


003  C 
004  C 

005  C  THIS  ROUTINE  COMPUTES  THE  WAVE  HEIGHT.  IF  NECESSARY^ 

006  C  THE  TIME  STEP  IS  SUCCESSIVELY  HALVED  TO  MAINTAIN  THE  DESIRED 

007  C  ACCURACY  IN  COMPUTING  THE  REFRACTION  COEFFICIENTt  UR  THE 

008  C  RAY  PATH  NEAR  A  REFLECTION  POINT. 

009  C 

010  C  SUBROUTINES  REQUIRED 

on  c 

012  C  NONE 

013  C 

014  IMPLICIT  REALI8  (A-H»0-Z) 

015  C 

016  DIMENSION  CQNTURD ( 9 ) » EM ( 6 » 12) » S( 6 » 6 ) 

017  DIMENSION  C ( 12 ) f CX< 12) » CY< 12) . £( 6 ) *  EX ( 6 ) > EY ( 6 ) 

018  C 

019  COMMON 

020  1 

021  2 

022  3 

023  COMMON 

024  1 

025  2 

026  3 

027  4 

028  COMMON 

029  1 

030  2 

031  3 

032  4 

033  C 

034  IF  (MAXQ  .GT.  1)  GO  TO  2 

035  C 

036  C  COMPUTE  OR  SET  QUANTITIES 

037  C 

038  PATI=P0T 

039  QATI*QOT 

040  BZT0L*AKRT0L*»2 

041  APQ=1.0-12 

042  IBDZ=0 

043  AKF=1,D0 

044  AKR=nDO 

045  AKS*1,D0 

046  HGT=HGTZ»AKStAKF*AKR 

047  AKFC=AKF 

048  FRICTC=26.318945D0/AGR 

049  GO  TO  38 

050  C 

051  C  COMPUTE  SHOALING  COEFFICIENT 

052  C 

053  2  AKS*DSQRT(DABS(6TZER0/GT)) 

054  C 
055  C 


/MAICOM/  ALFA»AMM»ANN»CF»CINfCNVRSA»C0NTURD»DATEl»DATE2» 
DCON»DELTAT»DIR»DY>EM>GR1D»HGTZ>AKRTOL»PROJCT» 
S>SDLTAT>NSK>TT>NUBRK>NBRKUP>NFAN>NFLAGR> 
NOLINE»IFLG»MOE»NFLECT>NFRACT»NRFLBU»NRFRBU»NROPT 
/RAYCOM/  BDZ»C»CX»CY»D»DELA»DEPrDGDX»DHDXrE»EX»EY»G»GZEROr 
HGTf AKFC»AKR»AKS»P0T>PREVrFl.P2»P3rP4.P5»Q0T,Ql » 
Q2»Q3.Q4»Q5»PU»SVV,PDEP>SPREVrGTZER0» 
PALFA.SUAU»PG»U»V»IHGT» 
NTOREF»INUN»MAXQ»NUMT>NOREF 
/SRFCOM/  ND»NC»CCON»TTT»ARAY»GR»GT>SARAY>PZ>PZD» 

CALFA»PCALFA»PARAY»PREVT»SPREVT>UT»SVT>ASUr 
Z»ZDfBZ»KMAX»PX»PY»PTTT>PANGLE>PGR>PPCTDrPPCTCX» 
PPCTCYfPGT*SVBZ»SVBDZ»XNUNT>XRFLBUf KRFRBU>CDGDX» 
UMX»AGR»PGAM»PBZ»PBDZ»PFXfPV»PVT 


COMPUTE  FRICTION  COEFFICIENT 
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056 

C 

057 

SKH=6.283185308DO»D£P/(V<TTT) 

058 

IF  (NFK  .EQ.  2)  GO  TO  35 

039 

AKF  =  l.ODO 

~ 

060 

30  TO  36 

•*  - 

061 

35 

AKF  =  l./(AKFCXFRICTCi:CFtHGT2tDXGRID/(  (TTT*X3)*GTZER0)* 

(■' 

062 

1  (2.XAKS/(DEXP(SKH)-DEXP(-SKH) )  )i:X3+l .  ) 

» 

063 

36 

AKFC=AKFC1£AKF 

m 

064 

c 

i*  /. 

065 

c 

SAVE  VALUES  IN  CASE  OF  THE  BREAKUP  OF  THE  TINE  STEP  INTERVAL 

066 

c 

'■"7- 

067 

SBZ^BZ 

- 

068 

SBDZ-BDZ 

069 

c 

P 

070 

c 

SET  NROPT  TO  ZERO  SO  THAT  A  RAY  IS  NOT  CONTINUED  BEYOND  A 

r;-*- 

071 

c 

SECOND  REFLECTION  POINT 

072 

c 

073 

IF  (NFLAGR  .NE.  0)  NR0PT=0 

074 

IF  (NFK  .EQ.  1)  GO  TO  30 

/-A 

075 

IF  (NFRACT  .NE.  0)  GO  TO  33 

076 

IF  (NFLECT  .EQ.  0)  GO  TO  207 

077 

IF  (NROPT  .EQ.  0  .AND.  NFLAGR  .EQ.  Oi  GO  TO  33 

078 

GO  TO  202 

079 

207 

IF  (DABS(DTAN(AU-ALFA) )  .LE.  5.671282D0  ,0R. 

080 

1  DABS(DTAN(A-ALFA)  )  .GE.  3.7320508D0)  GO  TO  201 

I 

081 

C 

082 

C 

IF  THE  WAVELET  DIRECTION  IS  WITHIN  10  DEGREES  OF  BEING 

y*. 

083 

C 

PARALLEL  TO  THE  HATER  DEPTH  CONTOUR  AND  THE  HAVE  PACKET 

084 

C 

DIRECTION  IS  WITHIN  75  DEGREES  OF  BEING  PERPENDICULAR  TO 

r 

085 

C 

THE  HATER  DEPTH  CONTOUR»  THE  RAY  IS  ASSUMED  TO  BE  NEAR 

086 

c 

A  REFLECTION  POINT 

1 

087 

c 

rlN' 


E: 


088 

089 

090 

091 

092 

093  201 
094 


C 

C 

c 

c 


095 
096 
097 
098 
099 
100 
101 
102 

103  205 

104  C 

105  C 

106  C 

107  33 

108  30 


MFUECT=1 

NRFLBU*! 

IF  (NROPT  .EQ.  0  .AND.  NFLAGR  .EQ.  0)  GO  TO  33 
IF  (NFLAGR  .NE.  0)  IBDZ=1 
GO  TO  202 

IF  (IBDZ  .EQ.  0)  GO  TO  33 
IB0Z=0 

CONFUTE  D(BETA)/DT  ANALYTICALLY  TO  START  THE  RUNGE  KUTTA 
CALCULATIONS  AFTER  THE  REFLECTION  POINT 

BDZ»-<BZ«DSIN(A-ALFA)tDTAN(A-ALFA)tDGDX/GRID) 

IF  (NC  .EQ.  0)  GO  TO  205 

BDZC«-(BZ»DSIN(A-CALFA)«DTAN(A-CALFA)»( (CDGDX+UNX)/GRID)) 

BDZ>BDZFBDZC 

SBDZ-BDZ 

DETERNINE  IF  THE  MATER  DEPTH  IS  NEARLY  CONSTANT 

IF  (DABS(DHDX/GRID)  .GT.  .OOOOIDO)  GO  TO  32 
IF  (DABS(Z)  .GT.  l.D-6)  GO  TO  32 


IN  DEEP  WATER  OR  WATER  OF  CONSTANT  DEPTH»  IF  THERE  IS  NO 
CURRENT  BETA  DOES  NOT  CHANGE 


109  C 

110  C 

111  C 

112  C 

113  E3Z=0.D0 

114  EBDZ=O.DO 

115  GO  TO  71 

116  C 

117  C  DETERMINE  IF  P  OR  Q  VALUES  ARE  NOT  ZERO 

118  C 

119  32  IF  (DABS(PATI)  .GT.  APQ  .AND.  DABS<P3)  .GT.  APQ 

120  1  .AND.  DABS(POT)  .GT.  APQ)  60  TO  320 

121  IF  (DABS(QATI)  .GT.  APQ  .AND.  DABS(Q3>  .GT.  APQ 

122  1  .AND.  DABS<QOT)  .GT.  APQ)  GO  TO  320 

123  GO  TO  71 

124  C 

125  C  COMPUTE  BETA  AND  D(BETA)/DT  USING  THE  RUNGE  KUTTA  METHOD 

126  C 

127  320  AKl»DELTATtBDZ 

128  AL1=-DELTAT»(PATI*BDZ+QATI»BZ) 

129  AK2=DELTATt(BD2+.4*ALl) 

130  AL2=-DELTAT*(P2»(BDZ+0.4tALl)+Q2t(BZ+0.4XAKl)) 

131  AK3=DEUTAT*  (BDZ  +  2. 969776  lD-ltALl  +  1.58V5964U-UAL2) 

132  AL3=-DELTAT<(P3*(BDZ  +  2.9697761D-UAL1  +  1.5875964D-UAL2)+U3«(BZ  + 

133  1  2.9697761D-UAK1  +  1.5875964D-UAK2) ) 

134  AK4*DELTATI(BDZ+2.1810040D-UAL1-3.05096516D0*AL2+3.83286476D0 

135  1  «AL3) 

136  AL4»-DELTAT»(POT»(BDZ+2.1810040D-l*ALl-3.050y6516DOi!AL2 

137  1  +3.83286476D0»AL3) 

138  2  +Q0T«(B2+2.1810040D-UAKl-3.05096516D0»AK2+3.83286476n0*AK3) ) 

139  AKS>DELTAT«(BDZ+ALl/3. ) 

140  AL5»-DELTAT«(Pl«(BDZ+ALl/3.)+Ql*<BZ+AKl/3. ) ) 

141  AK6*DELTAT<(BDZ+(6.«AL5+4.*ALl)/25. ) 

142  AL63-DELTAT«(P2«(BDZ+(6.<AL5+4.<AL1)/25. )+Q2*(BZ+(6.»AK5+4.*AKl) 

143  1  /25,)) 

144  AK7=DELTAT«(BDZ+(15.<AL6-12.*AL5+ALl)/4.  ) 

145  AL7a-DELTAT«(P0T«(BDZ+(15.*AL6-12.*AL5+ALl)/4. )+QUT»(BZ+(15.<AK6 

146  1  -12,«AK5+AK1)/4.)) 

147  AK8»DELTAT«(BDZ+(8.<AL7-50.»AL6+90.*AL5+6.*AL1)/81 . ) 

148  AL8»-DELTAT«(P4«<BDZ+(8.<AL7-50.<AL6+90.*AL5+6.»AL1)/8J . )+Q4*(BZ+ 

149  1  (8.*AK7-50.«AK6+90.<AK5+6.I!AK1)/81 . ) ) 

150  AK9=DELTAT»(BDZ+(8.<AL7+10.tAL6+36.IAL5+6.*ALl)/75. ) 

151  AL9=-DELTAT»(P5<(BDZ+(8.<AL7+10.*AL6+36.*ALb+6.<!ALl)/75.)+Q5*(BZ+ 

152  1  (8.*AK7+10.IAK6+36.*AK5+6.<AKl)/75.)) 

153  BZ5»BZ'h(1.0D0/192.000)l<23.XAKH12S.XAK6-81.XAK8-^125.XAK9) 

154  BDZ5=BDZ+(1.0D0/192.0D0)l(23.XALl+125.IAL6-8] .XAL8+125.XAL9) 

155  BDZ=BDZ+0.17476028D0IAL1-0.55148066D0IAL2+1.20553560D0*AL3+ 

156  1  0.17118478D0XAL4 

157  BZ»BZi0.17476028D0XAKl-0.S5148066D0XAK2+1.20553560D0XAK3+ 

158  1  0.17118478D0XAK4 

159  IF  (NC  .EQ.  0  .AND.  NO  .EQ.  1  .AND. 

160  1  DABS(DTAN(A-ALFA)  )  .GE.  11.43D0)  GO  TO  802 

161  IF  (NO  .EQ.  0  .AND.  NC  .EQ.  1  .AND. 
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162  1  DABS(DTAN(A-CALFA) )  .GE.  11.43D0>  60  TO  802 

v.  163  GO  TO  801 

164  C 

165  C  COMPUTE  D(3ETA)/DT  ANALYTICALLY  NEAR  A  CAUSTIC 

166  C 

167  802  BDZ=-(DSQRT(DABS(QOT)))»SBZ 

168  BZ5=BZ 

169  3DZ5=BDZ 

170  C 

171  C  COMPUTE  DIFFERENCE  BETWEEN  4TH  AND  5TH  ORDER  SOLUTIONS  AS 

172  C  AN  ACCURACY  TEST 

173  C 

174  801  EBZ»BZ-BZ5 

175  EBDZ=BDZ-BDZ5 

176  C 

177  C  COMPUTE  REFRACTION  COEFFICIENT 

178  C 

179  71  AKR=1./<DS0RT(DABS(BZ))) 

180  IF  (NFLECT  .EQ.  0)  GO  TO  401 

181  202  IF  (IFLG  .NE.  0)  GO  TO  55 

182  C 

183  C  NEAR  A  REFLECTION  POINT  LIMIT  THE  CHANGE  IN  THE  PACKET 

184  C  DIRECTION 

185  C 

186  IF  <DABS<DELA)  .LT.  1 .74532925D-2)  GO  TO  22 

r?  187  GO  TO  58 

188  401  IF  (IFLG  .NE.  0)  GO  TO  55 

189  C 

190  C  REQUIRE  THAT  THE  BETA  CALCULATION  HAS  THE  DESIRED  ACCURACY 

191  C 

192  IF  (OABS(EBZ)  .GE.  BZTOL  .OR.  DABS(EBOZ)  .GE.  BZTOL)  60  TO  21 

193  22  IF  (NUMT  .LE.  1)  GO  TO  4 

194  IFL6=1 

195  GO  TO  55 

196  21  NFRACT*! 

197  NRFRBU=1 

198  C 

199  C  IF  THE  DESIRED  ACCURACY  IS  NOT  REACHED.  BREAK  UP  THE  TIME 

200  C  STEP  INTERVAL  AND  RESUME  CALCULATIONS 

201  C 

202  58  DELTAT=.5tDELTAT 

203  IF  (DELTAT  .GE.  0.5)  GO  TO  31 

204  MIT=8 

205  NBRKUP*0 

206  GO  TO  38 

207  81  NBRKUP»1 

208  C 

209  C  DOUBLE  THE  NUMBER  OF  INTERVALS  THE  TIME  STEP  IS  DIVIDED  INTO 

210  C  AND  RECOVER  SAVED  VALUES 

“  211  C 

212  MUNT«2<NUHT 

213  BZ^SBZ 

214  BDZaSBDZ 


215  AKFC=AKFC/AKF 

216  GO  TO  38 

217  55  INUM=INU«+1 
213  C 

219  C  DETERMINE  IF  THE  PROf'ER  NUMBER  OF  POINTS  FOR  THE  BREAKUP  OF 

220  C  THE  TIME  STEP  HAVE  BEEN  COMPUTED 

221  C 

222  IF  (INUM  .LT.  NUMT)  On  TO  64 

223  C 

224  C  RESUME  CALCULATIONS  WITH  THE  ORIGINAL  TIME  STEP 

225  C 

226  IFLG=0 

227  INUM=0 

228  DELTAT=SDLTAT 

229  NBRKUP=0 

230  GO  TO  4 

231  C 

232  C  UPDATE  P  AND  Q  VALUES 

233  C 

234  64  PATI=POT 

235  QATI=QOT 

236  C 

237  C  TEST  FOR  FOCAL  POINT  OR  CAUSTIC 

238  C 

239  IF  (BZ  .GT.  O.OOOIDO)  GO  TO  67 

240  68  MIT=4 

241  NBRKUP=0 

242  GO  TO  38 

243  67  NBRKUPal 

244  GO  TO  38 

245  4  IF  (BZ  .LE.  0.000100)  GO  TO  68 

246  C 

247  C  UPDATE  P  AND  Q  VALUES 

248  C 

249  PATI=POT 

250  QATI=QOT 

251  NFRACT=0 

252  NFLECT=0 

253  C 

254  C  COMPUTE  WAVE  HEIGHT 

255  C 

256  HGT=HGTZ«AKS<AKFC*AKR 

257  IF  (NWBRK  .EQ.  0)  GO  TO  38 

258  C 

259  C  TEST  FOR  WAVE  BREAK 

260  C 

261  IF  (HGT/(V«TT)  .LE.  < 1 ./7. )*DTANH(SKH) )  GO  TO  38 

262  MITs5 

263  38  RETURN 

264  END 
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001  SUBROUTINE  SURFCE ( X » Y . A. FK» NFK fNBPf IWAVI T » AU ) 

002  C 

003  C  PURPOSE 

004  C 

005  C  THIS  ROUTINE  COMPUTES  THE  WATER  DEPTH.  CURRENT  MAGNITUDE. 

006  C  CURRENT  DIRECTION.  ROTATION  ANGLES.  WAVELET  DIRECTION. 

007  C  PROPAGATION  VELOCITIES.  COEFFICIENTS  OF  THE  RAY  SEPARATION 

008  C  EQUATION  (P  AND  Q).  THE  PACKET  RAY  CURAVATURE.  AND  THE  INITIAL 

009  C  VALUES  OF  D(BETA)/DT. 

010  C 

on  C  SUBROUTINES  REQUIRED 

012  C 

013  C  VELCTY  ROUTINE  TO  COMPUTE  WAVE  SPEEDS 

014  C 

015  IMPLICIT  REALI8  (A-H.O-Z) 

016  C 

017  DIMENSION  C0NTURD(9) .EM(6. 12) .S<6.6) 

018  DIMENSION  C(12 ) . CX ( 12 ) . CY ( 12 ) . E ( 6 ) . EX ( 6 ) . EY ( 6 ) 

019  DIMENSION  YVH(6) 

020  C 

021  COMMON  /GRDCOM/ 

022  1 

023  COMMON  /PRTCOM/ 

024  1 

025  COMMON  /MAICOM/ 


CMAT(120.120),  CURX(  120.120  )  .  CURY ( 1 20 . 120 )  . 
CURR(120.120) .  AX(4500).  AY(4500) 
HT.MXPLOT.NOR.NPT.NAX.NSH.NCO.NCC.NXCMAT. 
MM.NN.NNSKIP 

ALFA. AMM. ANN. CF.CIN.CNVRSA.C0NTURD.DATE1.DATE2. 


026 

1 

027 

2 

028 

3 

029 

COMMON  /RAYCOM/ 

030 

1 

031 

2 

032 

3 

033 

4 

034 

COMMON  /SRFCOM/ 

035 

1 

036 

2 

037 

3 

038 

4 

039 

C 

040 

C 

DATA 

041 

C 

SURFAI 

042 

C 

043 

DATA 

S/ 

044 

1 

2.2248800 

045 

2 

-1.5968900 

046 

3 

-1.5968900 

047 

4 

0.2500000 

048 

5 

0.4736842 

049 

6 

0.2500000 

050 

DATA 

EH/1. .0, 

051 

1 

l.tl. 

052 

2 

1..1. 

053 

3 

1..2. 

DCON.DELTAT.DIR.DY.EM.GRID.HGTZ.AKRTOL.PROJCT. 

S.SDLTAT.NSK.TT.NWBRK.NBRKUP.NFAN.NFLAGR. 

NOLINE. IFLG.MOE.NFLECT.NFRACT.NRFLBU.NRFRBU.NROPT 

BDZ.C.CX.CY.D.DELA.DEP.DGDX.DHDX.E.EX.EY.G.GZERO. 

HGT.AKFC.AKR.AKS.P0T.PREV.PI.P2.P3.P4.P5.Q0T.Q1. 

a2.Q3.Q4.Q5.PU.SVM.PDEP.SPREV.GTZER0. 

PALFA.SVAV.P6.U.V.IHGT. 

NTOREF.INUM.MAXQ.NUMT.NOREF 

ND.NC.CCON.TTT.ARAY.GR.GT.SARAY.PZ.PZD. 

CALFA.PCALFA.PARAY.PREVT.SPREVT.VT.SVT.ASV. 

Z.ZD.BZ.KMAX.PX.PY.PTTT.PANGLE.PGR.PPCTD.PPCTCX. 

PPCTCY.PGT.SVBZ.SVBDZ.KNUMT.KRFLBU.KRFRHU.CDGDX. 

UMX.AGR.PGAM.PBZ.PBDZ.PFK.PV.PVT 


-1.5968900. 
1.6895930. 
1.0361840. 
-0.3750000. 
-0.3157895. 
-0.1875000. 
1 . . 0 . .0 . .  1 . 
0.  .1. .0»»0» 
2 . .  1 . .  2 . .  4  . 
0».4..0..0» 


-1,5968900. 
1,0361840. 
1,6895930. 
-0,1875000. 
-0,3157895. 
-0,3750000. 
» 1 , .0, .2,  .0 
.  1 , .  1 , .  1 , .  1 
.  1 , .  1 , .  3 , .  1 
. 1 , .2, . 1 ,  .4 


0,2500 
-0 . 3750 
-0,1875 
0.1250 
0.0000 
0,0625 
, .  0 .  .  4 . 
, .  1 .  .  1 , 
.  .  3 , .  9 , 
, .  2 , .  1 . 


0,4736842. 
•0. 3157895. • 
■0.3157895.• 
0,0000000. 
0,2105263. 
0,0000000. 


0,2500. 

0,1875. 

•0,3750. 

0,0625. 

0,0000. 

0.1250/ 
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054  4  1 .  f  2  * » 2  •  » 4  • » 4 » »4  • » 1  ►'»  2 » » 3  •  >  4  .  »  6  •  »  9  .  » 

055  5  1 . » 3  * » 1 • » 9 . » 3 • » 1 . » 1 • > 3 • > 2 . f 9  .  >  6  •  f  4 .  / 

056  C 

057  IF  (MAXQ  .37.  1)  GO  TO  201 

058  IF  (ND  .£Q.  1)  GO  TO  573 

059  C 

060  C  IF  THERE  IS  NO  WATER  DEPTH  GRIDf  THE  RAY  CURVATURE^  Ff  AND  0 

061  C  DUE  TO  DEPTH  VARIATIONS  ARE  SET  EQUAL  TO  ?rRO 

062  C 

063  FKAD=O.DO 

064  POTD=O.DO 

065  QOTD=O.DO 

066  573  IF  (NC  .EQ.  1)  GO  TO  574 

067  C 

068  C  IF  THERE  IS  NO  CURRENT  GRin»  THE  RAY  CURAVATURE  P  AND  Q  DUE 

069  C  TO  CURRENT  VARIATIONS  ARE  SET  EQUAL  TO  ZERO 

070  C 

071  FKAC=0.D0 

072  P0TC=0.D0 

073  Q0TC=0.D0 

074  574  IDBDT=0 
075  I0NCE=1 

076  C 

077  C  tttttttXtttttXtttttttttttXtttXttttttXtttt 

078  C  tXXXX  XXXXX 

079  C  «**»  BEGIN  SURFACE  FITTING  SEGMENT  XXXXX 

080  C  XXXXX  XXXXX 

081  C  IXIXXIXXXIIIXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

082  C 

083  201  I=X 

084  J*Y 

085  FI=I 

086  FJ=J 

087  FIC=I 

088  FJC=J 

089  XL=X+1.-FI 

090  YL=Y+1.-FJ 

091  IF  (ND  .EQ.  0)  GO  TO  324 

092  IF  (MAXQ  .LE.  1)  GO  TO  1 

093  IF  (21  .NE.  FI)  GO  TO  1 

094  IF  (ZJ  .EQ.  FJ)  GO  TO  3 

095  1  ZI=FI 

096  ZJ=FJ 

097  C 

098  C  SELECT  12  DEPTHS  FROM  THE  GRID  ABOUT  THE  RAY  POINT 

099  C 

100  C(1)=CMAT(J+1»I) 

101  C(2)»CMAT(J+2»I) 

102  C(3)»CMAT(J*I+1) 

103  C(4)»CMAT(J+1»I+1) 

104  C(5)*CMAT(J+2»I+1) 

105  C(6)*CMAT(J+3»I+1) 

106  C(7)*CMAT(J»I+2) 
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107 

108 
V7  109 

110 

111 

112  C 

113  C 

114  C 

115  C 

116  C 

117 

118 

119 

120 

121  318 

122  319 

123 

124 

125 

126 

127  320 

128  321 

129  C 

130  C 

131  C 

^  132  3 

133  C 

134  C 

135  C 

136  C 

137 

138 

139 

140  C 

141  C 

142  C 

143  C 

144 

145 

146 

147  C 

148  C 

149  C 

150  C 

151 

152 

153  C 

154  C 

155  C 

156  C 

157 

158 

159 


C(8)=CMAT(J+l.I+2) 
C(9)=CMAT( J+2. 1+2) 
C(10)=CMAT(J+3.I+2) 
.:(11)=CMAT(  J-i-l)I+3) 
C( 12)=CMAT( J+2. It3) 


FIT  gUADRADIC  SURFACE  TO  THE  12  DEPTHS.  AT  SUCCESSIVE  PAT 
POINTS  A  NEW  QUADRADIC  SURFACE  IS  DETERMINED  ONLT  IF  THERE 
IS  A  CHANGE  IN  ANY  OF  THE  12  WATER  DEPTH  GRID  VALUES 

DO  319  II=1»6 
YVW(II)=0. 

DO  318  L=lil2 

YVW(II)=YVW(II)+C(L)*EM(II»L) 

CONTINUE 
CONTINUE 
DO  321  11=1.6 
E(II)=0. 

DO  320  JJ=1.6 

E(II)=E(II )+S( JJ. II)*YVU( JJ) 

CONTINUE 

CONTINUE 


COMPUTE  INTERPOLATED  WATER  DEPTH 

DEP=(E(l)+E(2)IXL+E(3)IYL+E(4)i:XL»»2+E(5)*XL*YL  +  E(6)tYL*jt2)*DC0N 

COMPUTE  PARTIAL  DERIVATIVES  OF  WATER  DEPTH  IN  FIXED  XY- 
SYSTEM 

HX=(E(2)+2.tE(4)*XL+E(5)*YL)*DC0N 
HY»(E(3)+E(5)tXL+E(6)*2.«YL)*DC0N 
DHDXM=DSQRT ( ( HX*HX )  +  ( HYUHY ) ) 

IF  THERE  IS  A  VARIATION  IN  WATER  DEPTH  COMPUTE  THE  ROTATION 
ANGLE 

IF  (DABS<DHDXM/GRID)  .GT,  0.00001)  ALFA=DATAN2(HY . HX ) 
COSALF=DCOS(ALFA) 

SINALF=DSIN(ALFA) 

COMPUTE  PARTIAL  DERIVATIVE  OF  WATER  DEPTH  IN  ROTATED  XY- 
SYSTEM 

DHDX=HXtCOSALF+HYtSINALF 
IF  (IHGT  .EQ.  0)  GO  TO  572 

COMPUTE  SECOND  PARTIAL  DERIVATIVES  OF  WATER  DEPTH  IN  FIXED 
XY-SYSTEM 

HXX*2.»£(4)tBC0N 

HYY=2.i:E(6)*DC0N 

HXY=£<5)*DC0N 
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160  C 

161  C 

162  C 

163  C 

164 

165 

166 

167 

168  C 

169  C 

170  C 

171  C 

172  572 

173 

174 

175  C 

176  C 

177  C 

178  324 

179 

180 
181 

182  C 

183  C 

184  C 

185  322 

186  50 

187 

188 

189 

190 

191  71 

192  52 

193 

194  C 

195  C 

196  C 

197  C 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210  C 

211  C 

212  C 


COHPUTE  SECOND  PARTIAL  DERIOATIVES  OF  WATER  DEPTH  IN 
ROTATED  XY-SYSTEM 

HDER1=2.XSINALF1C0SALFTHXY 
DHDXX=<C0SALFXX2)*HXXFHDERH-(SINALFXX2)tHYY 
DHDYY=(SINALF«*2)XHXX-HDERl  +  <C0SALF«J;2)tHYY 
OHDXY=(SINALF*COSALF)S(HYY-|Jyx)-K  (C0SALFXX2)-(SINALFXt2) )  *HXY 

IF  THE  WATER  DEPTH  IS  GREATER  THAN  0,  THE  CALCULATIONS 
ARE  CONTINUED 

IF  (DEP  .GT.  0.)  GO  TO  324 

NDP=2 

GO  TO  403 


COMPUTE  DEEP  WATER  WAVELENGTH 

WL=AGR»(TTT«2)/6.283185308D0 
IF  (DEP/WL  .GT.  .64)  GO  TO  322 
NFK=2 
GO  TO  50 


IN  DEEP  WATER  SET  NFK  =  1 


NFK»1 

IF  <NC  .EQ.  0)  GO  TO  323 
IK=0 

IF  (MAXQ  .LE.  1)  GO  TO  52 

IF  (ZIC  .NE.  no  GO  TO  71 

IF  (ZJC  .EQ.  FJO  GO  TO  53 

IK=1 

ZIC=FIC 

ZJC=FJC 


SELECT  12  CURRENT  SPEEDS  FROM  X-COMPONENT  GRID  ABOUT  THE  RAY 
POINT 

CX(1)=CURX(J+1,I) 

CX(2)=CURX(J+2»I) 

CX(3)=CURX( J»I+1) 

CX(4)=CURX(  J+1»I  +  U 
CX(5)=CURX( J+2»I+1) 

CX(6)=CURX(J+3»I+1) 

CX(7)»CURX(J»I+2) 

CX(8)»CURX(J+l»I+2) 

CX(9)»CURX(J+2»I+2) 

CX(10)*CURX(J+3»I+2) 

CX(ll)*CURX(J+l»I+3) 

CX(12)*CURX( J+2»I+3) 

DETERMINE  IF  THE  X-COMPONENT  CURRENT  VALUES  ARE  EQUAL 
AT  THE  FOUR  NEAREST  GRID  POINTS 
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213  C 

214 

215 

21o 

217 

218  53 

219  C 

220  C 

221  C 

222  C 

223  562 

224 

225 

226 

227 

228 

229 

230 

231  C 

232  C 

233  C 

234  C 

235  C 

236  C 

237  551 

^  238 

239 

240 

241  80 

242  54 

243 

244 

245 

246 

247  55 

248  81 

249  C 

250  C 

251  C 

252  561 

253 

254  C 

255  C 

256  C 

257  C 

258 

259 

260 
261 
262 

263 

264 

265  557 


IF 

(DABS(CX(5)-CX(8) ) 

.GT. 

O.OOOOOIDO) 

GO 

TO 

551 

IF 

(DABS(CX(4)-CX(9) ) 

.GT. 

O.OOOOOIDO) 

GO 

TO 

551 

I F 

(DA3S(C:((5)-CX(9) ) 

.  GT  . 

O.OOOOOIDO) 

GO 

TO 

IF 

(MAXQ  .Lc.  1  .OR. 

IK  .EQ 

.  1)  GO  TO 

362 

IF  (IZX  .EQ.  1)  GO  TO  561 


IF  THE  FOUR  GRID  POIMT  VALUES  ARE  EQUAL  THF  CCMPOHEHT  CURREN" 
AND  ITS  DERIVATIVES  ARE  SET  EQUAL  TO  ZERO 

ZX=O.DO 

ZXX=O.DO 

ZXY=O.DO 

ZXXX=O.DO 

ZXYY=O.DO 

ZXXY=O.DO 

IZX=0 

GO  TO  557 

FIT  QUADRATIC  SURFACE  TO  THE  12  CURRENT  SPEED  VALUES  FOR  THE 
X-COMPONENT.  AT  SUCCESSIVE  RAY  POINTS  A  NEW  QUADRATIC 
SURFACE  IS  DETERMINED  ONLY  IF  THERE  IS  A  CHANGE  IN  ANY  OF  THE 
12  CURRENT  SPEED  GRID  VALUES 

DO  54  II»lf6 
YVW<II)sO.ODO 
DO  80  L=lfl2 

YVW<II)=YVW(II)+CX(L)tEM<IIfL) 

CONTINUE 
CONTINUE 
DO  81  II»1»6 
EX(II)=0.0D0 
DO  55  JJ=1,6 

EX(II)=EX(II)+S(JJ»II)<YVW<JJ) 

CONTINUE 

CONTINUE 


COMPUTE  INTERPOLATED  X-COMPONENT  CURRENT 

ZX=(EX(l)+EX(2)*XL+EX(3)*YL+EX{4)»XL**2+EX(5)tXL*YL+ 

1  EX(6)»YL»*2)*CC0N 

COMPUTE  PARTIAL  DERIVATIVES  OF  X-COMPONENT  CURRENT  IN 
FIXED  XY-SYSTEM 

ZXX»<EX<2)+2,D0*EX(4)»XL+EX(5)»YL)*CC0N 

ZXY»<EX<3)+EX<5)»XL+EX<6)»2.D0»YL)XCC0N 

ZXXX=2.D0»EX(4)»CC0N 

ZXYY«2.D0»EX(6)»CC0N 

ZXXY=EX(5)»CC0N 

IZX=1 

IDBDT=1 

IF  (MAXQ  .LE.  1)  GO  TO  72 
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266 

IF  (IK  .EQ.  0)  GO  TO  56 

267 

C 

263 

C 

SELECT  12  CURRENT  SPEEDS  FROM  Y-COMPONENT  GRID  ABOUT 

THE 

26? 

r 

w 

RAY  POINT 

270 

c 

271 

72 

CY(1)=CURY( J+1»I) 

272 

CY(2)=CURY(J+2fI) 

273 

CY(3)=CURY( J» I+l) 

274 

CY(4)=CURY(J+lfI+l) 

275 

CY(5)»CURY(J+2»I+1) 

276 

CY(6)=CURY( J+3»I+1) 

277 

CY(7)=CURY(J»I+2) 

278 

CY(8)=CURY( J+l,I+2) 

279 

CY(9)=CURY( J+2»I+2) 

280 

CY(10)=CURY(J+3»I+2) 

281 

CY(ll)=CURY(J+lf 1+3) 

282 

CY(12)=CURY( J+2»I+3) 

283 

C 

284 

C 

DETERMINE  IF  THE  Y-COMPONENT  CURRENT  UALUES  ARE  EQUAL 

285 

c 

AT  THE  FOUR  NEAREST  GRID  POINTS 

286 

c 

287 

IF  (DABS(CY(5)-CY(3) )  .GT.  O.OOOOOIDO)  GO  TO  552 

288 

IF  (DABS(C((4)-CY(9) )  .GT.  O.OOOOOIDO)  GO  TO  552 

289 

IF  (DABS(CY(5)-CY(9) )  .GT.  O.OOOOOIDO)  GO  TO  552 

290 

IF  (MAXQ  .L£.  1  .OR.  IK  .EQ.  1)  GO  TO  564 

291 

56 

IF  (IZY  .EQ.  1)  GO  TO  563 

292 

C 

293 

C 

IF  THE  FOUR  GRID  POINT  VALUES  ARE  EQUAL  THE  COMPONENT 

CURRENT 

294 

C 

AND  ITS  DERIVATIVES  ARE  SET  EQUAL  TO  ZERO 

295 

C 

296 

564 

ZYaO.DO 

297 

ZYX*O.DO 

298 

ZYY=O.DO 

299 

ZYXX=O.DO 

300 

ZYYY=O.DO 

301 

ZYXY=O.DO 

302 

IZY»0 

303 

GO  TO  553 

304 

C 

305 

C 

FIT  QUADRATIC  SURFACE  TO  THE  12  CURRENT  SPEED  VALUES 

FOR 

306 

C 

THE  Y-COMPONENT.  AT  SUCCESSIVE  RAY  POINTS  A  NEW  QUADRATIC 

307 

C 

SURFACE  IS  DETERMINED  ONLY  IF  THERE  IS  A  CHANGE  IN  ANY  OF 

308 

C 

THE  12  CURRENT  SPEED  GRID  VALUES 

309 

C 

310 

552 

DO  57  II=1»6 

311 

YVW<II)=O.DO 

312 

DO  82  L>1>12 

313 

YVH<II)«YVU<II)+CY(L)»EM(IIfL) 

314 

82 

CONTINUE 

315 

57 

CONTINUE 

316 

DO  59  II=1»6 

317 

EY(II)*O.DO 

318 

00  58  JJ>1>6 

319  EY(II)=EY(II)+S( JJ»II)»YVU< JJ) 

320  58  CONTINUE 

321  59  CONTINUE 

322  C 

323  C  COMPUTE  INTERPOLATED  Y-COMPONENT  CURRENT 

324  C 

325  563  ZY=(EY(l)+EY(2)i:XL  +  EY(3)*YL+EY(4)»XL»»2+EY(5)*XL*YL  + 

326  1  £Y(6)tYL**2)tCCQN 

327  C 

328  C  COMPUTE  PARTIAL  DERIVATIVES  OP  Y-COMPONENT  CURRENT  IN 

329  C  FIXED  XY-SYSTEM 

330  C 

331  ZYX»(EY(2)+2.D0»EY<4)»XL+EY(5)tYL)»CC0N 

332  ZYY=(EY(3)+EY<S)«XL+EY(6)»2.D0»YL)»CC0N 

333  ZYXX=2.D0»EY<4)»CC0N 

334  ZYYY=2.D0»EY(6)XCC0N 

335  ZYXY=EY(5)XCC0N 

336  IZY=1 

337  IDBDT=1 

338  C 

339  C  DETERMINE  CURRENT  SPEED  MAGNITUDE 

340  C 

341  553  Z=DSQRT((ZXXX2)+(ZYXX2) ) 

342  IF  (DABS(Z)  .GT.  O.OOOOOIDO)  GO  TO  213 

343  C 

344  C  IF  THE  CURRENT  SPEED  IS  NEAR  ZERO  THE  CURRENT  DERIVATIVES 

345  C  IN  THE  ROTATED  XY-SYSTEM  ARE  SET  EQUAL  TO  ZERO 

346  C 

347  DZDX=O.DO 

348  DZDXX-O.DO 

349  DZDYY=O.DO 

350  OZDXY*O.DO 

351  OZDDX>0.00 

352  DZDOY^O.OO 

353  OZDDXXaO.DO 

354  DZDDYY*O.DO 

355  DZDDXY»O.DO 

356  GO  TO  323 

357  C 

358  C  COMPUTE  FIRST  PARTIAL  DERIVATIVES  OF  CURRENT  SPEED  IN 

359  C  FIXED  XY-SYSTEM 

360  C 

361  213  ZTX»<ZX»ZXX+ZY«ZYX)/Z 

362  ZTY»(ZXXZXY+ZYXZYY)/Z 

363  DZDXM»DSQRT( (ZTX*ZTX)+(ZTYXZTY) ) 

364  C 

365  C  IF  THERE  IS  A  VARIATION  IN  CURRENT  COMPUTE  THE  ROTATION  ANGLE 

366  C 

367  IF  (DABS<DZDXM/GRID)  .GT,  0.00001)  CALFA-DATAN2(ZTY»ZTX) 

368  SICALF-DSIN<CALFA) 

369  COCALFaOCOS(£ALFA) 

370  C 

371  C 


COMPUTE  FIRST  PARTIAL  DERIVATIVE  OF  CURRENT  SPEED  IN 


mam 

1  ..  ..  - 

f.  L,  .  .  , 

' 

1  ' 

102 

y-* 

372 

C 

ROTATED  XY-SYSTEM 

373 

C 

fli 

374 

DZDX=ZTX«COCALF+ZTY*SICALF 

375 

c 

■■•V' 

376 

c 

COMPUTE  CURRENT  DIRECTION 

377 

c 

378 

ZD=DATAN2(ZYfZX) 

in 

379 

c 

k9> 


380  C 

381  C 

382  C 

383 

384 

385  C 

386  C 

387  C 

388  C 
38? 

390 

391 

392  C 

393  C 

394  C 

395  C 

396 

397 

398 

399  C 

400  C 

401  C 

402  C 

403 

404 

405 

406 

407  C 

408  C 

409  C 

410  C 

411 

412 

413 

414  C 

415  C 

416  C 

417  C 

418 

419 

420 

421 

422  C 

423  C 

424  C 


COMPUTE  FIRST  PARTIAL  DERIVATIVES  OF  CURRENT  DIRECTION  IN 
FIXED  XY-SYSTEM 


ZDX=<ZX*ZYX-ZYtZXX)/(Z«»2) 

ZDY=(ZX*ZYY-ZY«ZXY)/(Zt»2) 


COMPUTE  FIRST  PARTIAL  DERIVATIVES  OF  CURRENT  DIRECTION  IN 
ROTATED  XY-SYSTEM 

DZDDX=COCALF»ZDX+SICALF«ZDY 
DZDDY=-SICALFXZDX+COCALFtZDY 
IF  (IHGT  .EQ.  0)  GO  TO  323 

COMPUTE  SECOND  PARTIAL  DERIVATIVES  OF  CURRENT  SPEED  IN  FIXED 
XY-SYSTEM 

ZTXX=(ZX«ZXXX+ZXXtZXX  +  ZYJZYXXFZYXJtZYX-ZTXIZTX)/Z 
ZTXY-<2X*ZXXY+ZXX«ZXY+ZY«2YXYf2YX>ZYY-ZTX«ZTY)/Z 
ZTYYa<ZX«ZXYY+ZXY«ZXY+ZY«ZYYY+ZYY»2YY-2TY«ZTY)/Z 

COMPUTE  SECOND  PARTIAL  DERIVATIVES  OF  CURRENT  SPEED  IN  ROTATED 
XY-SYSTEM 

ZDER1»2.*SICALF<C0CALF<ZTXY 

DZDXX=(C0CALF<«2)<ZTXX+ZDERl+(SICALF»»2)tZTYY 

DZDYY»(SICALF«2)<ZTXX-2DERU(C0CALF«»2)»ZTYY 

DZDXY»<SICALF<COCALF)»(ZTYY-ZTXX)+( (C0CALF»>2)-<SICALFX»2) XZTXY 

COMPUTE  SECOND  PARTIAL  DERIVATIVES  OF  CURRENT  DIRECTION  IN 
FIXED  XY-SYSTEM 

ZDXX=(<<ZX<ZYXX-ZY«ZXXX)/Z)-2.D0»ZDXXZTX)/Z 
ZDYY»( ( (ZX<ZYYY-ZY«ZXYY)/Z)-2.D0»ZDY»ZTY)/Z 
ZDXY»( ( (ZXX«ZYY+ZX«ZYXY-ZYX«ZXY-ZY»ZXXY)/Z)-2.D0»ZDYtZTX)/Z 

COMPUTE  SECOND  PARTIAL  DERIVATIVES  OF  CURRENT  DIRECTION  IN 
ROTATED  XY-SYSTEM 

ZDDER1«2.*SICALF«C0CALF»ZDXY 

DZDDXX»(C0CALF«»2)<ZDXX+ZDDER1+<SICALF»»2)XZDYY 
DZDDYY=(SICALF«2)«ZDXX-ZD0ER1  +  <C0CALF««2)«ZDYY 
OZDDXY»(SICALF»COCALF)<<ZDYY-ZDXX)+( (CQCALF««2)-(SICALF««2) )«ZDXY 


ttttt  ttttt 
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l'- 

425 

C 

• 

•  . 

426 

C 

If 

427 

c 

428 

c 

429 

c 

430 

c 

431 

c 

432 

323 

ii 

433 

434 

il 

435 

a 

436 

i; 

437 

60 

y 

438 

439 

61 

C 

440 

C 

441 

C 

442 

C 

443 

C 

^  a 

444 

C 

K-' 

445 

C 

446 

447 

r-;. 

448 

C 

p  • 

449 

c 

J 

450 

c 

451 

c 

IjjH 

452 

453 

14 

454 

455 

16 

456 

ol 

457 

17 

I. 

458 

1 

459 

13 

a 

460 

C 

461 

C 

3 

462 

C 

• 

463 

464 

V  ■ 

465 

466 

18 

*  ^ 

467 

mM 

468 

sa 

469 

470 

471 

20 

SSM 

472 

9 

473 

■;  • 

474 

23 

475 

22 

476 

m  * 

' 

Lb 

477 

C 

•  .  *  « 

L.'»  J-* 

L*»L.**L** 

• 

ttttt  END  OF  SURFACE  FITTING  SEGMENT  ttttt 
ttttt  ttttt 
tttttttttttttttttttttttttttttttttttttttttt 


COMPUTE  VELOCITIES  AND  DOPPLER  SHIFTED  WAVE  PERIOD 

DO  60  IT=1>50 
TTO=TTT 

CALL  VELC TY  <  V  r  TTT  f  MAXQ  t  DEP » NFK » U » NC  r  AGR ) 
TTT=TT»<1.D0+Z»DC0S(AV-ZD)/V> 

IF  <DABS<<TTO-TTT)/TTT)  .L£.  O.OOOOOIDO)  GO  TO  61 
CONTINUE 

IF  <IHGT  .NE.  0)  GO  TO  12 

ttttt  ttttt 

ttttt  BEGIN  WAVELET  COMPUTATION  SEGMENT  ttttt 
ttttt  ttttt 

ttttttttttttttttttttttttttttttttttttttxtttttt 

IF  (ND  .EQ.  1  .AND.  NC  .EQ.  1)  GO  TO  570 
IF  (ND  .EQ.  0)  GO  TO  26 

COMPUTE  WAVELET  DIRECTION  IN  ROTATED  XY-SYSTEM  USING  SNELL'S 
LAW  FOR  WATER  DEPTHS 

GP»SVAV-ALFA 

IF  (DABS(GP)  .LE.  6.283185308D0)  GO  TO  13 
IF  <GP)  16»13»17 
GP»GPi6.28318S308D0 
GO  TO  14 

GP»GP-6,283185308D0 
GO  TO  14 

ARG1=V»DSIN(GP)/SVV 

TEST  FOR  TOTAL  REFLECTION  OF  THE  WAVELETS 

IF  (DABS(ARGl)  .LE.  1.00)  GO  TO  18 

NT0REF=1 

GO  TO  403 

NT0REF=0 

GPT»DASIN(ARG1) 

IF  (DABS(GP)  .LE.  4 .71238898038D0)  GO  TO  20 

AVP«6.283185308D0+GPT 

GO  TO  22 

IF  (DABS(GP)  .LE.  1 .5707963268D0)  GO  TO  23 

AVP«3.141592654D0-GPT 

GO  TO  22 

AVP-GPT 

AV-AVP+ALFA 

IF  (NC  .EQ.  0)  GO  TO  12 


478  C  COMPUTE  WAVELET  DIRECTION  IN  ROTATED  XY-SYSTEM  USING  SNELL'S  LAW 

479  C  _ 

480  26  GPC=SVAV-CALFA 

A81  114  IF  (DABS(GPC)  .LE.  6,2S3185308D01  GO  TO  113 

482  IF  (GPC)  116>113>117 

483  116  GPC=GPC+6.283185308D0 

484  GO  TO  114 

■iGS  117  GPC=GPC-6.283195308DO 

486  GO  TO  114 

487  113  DO  122  ITT=1,50 

488  AVPSAV«AUP 

489  C 

490  C  COMPUTE  PHASE  VELOCITY  AND  DOPPLER  SHIFTED  WAVE  PERIOD 

491  C 

492  DO  255  IT=1»50 

493  TTO=TTT 

494  CALL  VELCTY(U,TTT»MAXQf DEP»NFK>U»NC»AGR) 

495  TTT=TT*(1.D0+Z*DC0S(AV-ZD)/V) 

496  IF  (DABS( (TTO-TTT)/TTT)  .LE.  O.OOOOOIDO)  GO  TO  254 

497  255  CONTINUE 

498  254  VT=V+Z»DCOS(AV-ZD) 

499  ARG1C=VT»DSIN(GFC)/SVT 

500  C 

501  C  TEST  FOR  TOTAL  REFLECTION  OF  THE  WAVELETS 

502  C 

503  IF  (DABS(ARGIC)  .LE.  l.DO)  GO  TO  118 

504  MT0REF»1 

505  GO  TO  403 

506  118  NT0REF=O 

507  GPCT*DASIN(AR61C) 

508  IF  (OABS(GPC)  .LE.  4.71238898038D0)  GO  TO  120 

509  AVP»6.283185308D0+GPCT 

510  GO  TO  115 

511  120  IF  (DABS(GPC)  .LE.  1 .5707963268D0 )  GO  TO  123 

512  AVP*3.141592654D0-GPCT 

513  GO  TO  115 

514  123  AVP»GPCT 

515  115  AV«AVf+CALFA 

516  IF  (ITT  .LE.  1)  GO  TO  122 

517  IF  (DABS<(AVPSAV-AVP)/AVP)  .LE.  O.OOOOOIDO)  GO  TO  12 

518  122  CONTINUE 

519  GO  TO  12 

520  C 

521  C  COMPUTE  WAVELET  DIRECTION  IN  ROTATED  XY-SYSTEMS  USING  RAY 

522  C  CURVATURE  EXPRESSION  FOR  WATER  DEPTHS  AND  CURRENTS 

523  C 

524  570  IF  (HAXQ  .EQ.  1)  GO  TO  12 

525  NTOREF-0 

526  OELAVS'OELAV 

527  DELAV«( ( DTAN( SVAV-ALFA) tDCOS< ARAY-ALFA ) IDVDX ) + 

528  1  DCOS(ARAY-CALFA)«(DTAN(SVAV-CALFA)t(CDVDX+UKX)- 

529  2  (CDVDY+UKY)))«(GR/VT)t(DELTAT/GRID) 

530  OELAVB*O.SDOX(OELAVS40ELAV) 


531  IF  (DABS(DELAVB-D£LAVS)  .LE.  0.000009D0)  IWAVIT=1 

532  AV=SVAV+DELAVB 

533  C 

53-1  C  ittxttitxtttxttttxxtxxttxtxtxttxttxxttixxfxxxt 

535  C  IXXXX  txxxx 

536  C  END  OF  WAVELET  COMPUTATION  SEGMENT  tXXXX 

537  C  txxxx  txxxx 

533  C  xxxxxxzxxxxxxxxxxxxxxxxxxxtxxxtxxxtxxyrxtxxxxt 

539  C 

540  12  PHI»A-AV 

541  COSPHI*DCOS(PHI) 

542  SINPHIaDSIN(PHI) 

543  TANPHI«DTAN(PHI) 

544  C 

545  C  COMPUTE  GEOMETRIC  GROUP  VELOCITY 

546  C 

547  G=U»DCOS<PHI) 

548  AVMZDsAV-ZD 

549  SIAVM2=DSIN<AVMZD) 

550  COAVMZ=DCOS(AVMZD) 

551  C 

552  C  COMPUTE  VELOCITY  OF  ADVECTED  WAVELET  FRONT  IN  CURRENT 

553  C 

554  VTaV+ZtCOAVMZ 

555  AM2D=A-2D 


556  SIAHZD>OSIN(AMZD) 

557  COAMZD«DCOS<AMZD) 

558  C 

559  C  COMPUTE  RAY  VELOCITY  IN  CURRENT 

560  C 

561  GR*(6«X2-fZX«2-^2«Zl:6XC0AMZ0)<«.5 

562  C 

563  C  COMPUTE  VELOCITY  OF  ADVECTED  GROUP  FRONT  IN  CURRENT 

564  C 

565  GT=G+Z«COAMZD 

566  C 

567  c  tttttxxxxtxtxxxtxxtxxxxxxxxxxxxxxxxxxxxxxxxx 

568  C  txxxx 

569  C  tttXX  BEGIN  CURVATURE»  P  AND  Q  SEGMENT  XXXXt 

570  C  tttXt  XXXXX 

571  c  tttxtxxxxxxxxttttxxxtxxxxxxxxxxxttxxxxxxxxxx 

572  C 

573  C 

574  C 

575  C  COMPUTE  ANGULAR  FREQUENCY 

576  C 

577  OMEGA»2,DO«3.141592654DO/TTT 

578  A2V2»1.0-((0MEGA«V/AGR)*»2> 

579  WHA0*<V«2)+AGR«DEP«A2V2 

580  0I»2.O«0MEGA«DEP/V 

581  UVRA=U/V 

582  UDl»UVRA-0.5 

583  UD2«(1.0-DSQRT( (OI»»2)+4.0»(UD1»*2))) 
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584  IF  (ND  .EQ.  0)  GO  TO  251 

585  IF  (NFK  .EQ.  2)  GO  TO  402 

586  C 

587  C  IN  DEE?  WATER  THE  GEOMETRIC  GROUP  UELOCITT  DERIVATIVE.  RAY 

588  C  CURVATURE^  P.  AND  Q  FOR  WATER  DEPTHS  ARE  SET  EQUAL  TO  ZERO 

589  C 

590  DVDX=O.DO 

591  OGDX=O.DO 

592  FKAD=O.DO 

593  POTD»O.DO 

594  QOTD-O.DO 

595  GO  TO  575 

596  402  W*AGRtVtA2V2/UHA0 

597  C 

598  C  COMPUTE  THE  FIRST  DERIVATIVE  OF  THE  PHASE  VELOCITY  FOR 

599  C  hater  depths 

600  C 

601  DVDX^WXOHDX 

602  AVMAL«AV-ALFA 

603  TANAVM=DTAN(AUMAL) 

604  COSAVM=DCOS(AVMAL) 

605  AMALFA=A-ALFA 

606  TANAHAsOTANCAMALFA) 

607  COSAMA=DCOS(AMALFA) 

608  SINAMA»OSIN(AHALFA) 

609  UD3X=(V/DEP)XDHDX-DVDX 

610  C 

611  C  COMPUTE  FIRST  DERIVATIVE  OF  CONVENTIONAL  GROUP  VELOCITY  FOR 

612  C  HATER  DEPTHS 

613  C 

614  DUDX»UVRAXDVDX-fUDlXUD2XUD3X 

615  RH0»1.D0/(1.D0+TANPHIXTANAMA) 

616  SIGMA=UXSINPHIXTANAVM/V 

617  C 

618  C  COMPUTE  FIRST  DERIVATIVE  OF  GEOMETRIC  GROUP  VELOCITY  FOR 

619  C  HATER  DEPTHS 

620  C 

621  DGDX=RHOt{DUDXXCOSPHI+SIGMA»DVDX) 

622  C 

623  C  COMPUTE  PACKET  RAY  CURVATURE  FOR  HATER  DEPTHS  IN  ROTATED 

624  C  XY-SYSTEM 

625  C 

626  DSRAD«DCOS<ARAY-ALFA)/COSAHA 

627  FKAD»SINAMAIDGDXXOSRAD 

628  IF  (IHGT  .EQ,  0)  GO  TO  575 

629  C 

630  C  COMPUTE  P  FOR  WATER  DEPTHS  IN  ROTATED  XY-SYSTEM 

631  C 

632  POTD«(-2.XCOSAMAX06DX}/GRID 

633  DAVDX>TANAVMXDVOX/V 

634  DAOXaTANAMAXDGDX/G 

635  OPHIDX«DADX-DAVDX 

636  YH»-2.0XA6RX(VXX2)/(UHA0Xt2) 
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637  C 

638  C 
VV  639  C 

6-40 

641 

642 

643 
£'?4 

645 

646 

647  C 

648  C 

649  C 

650  C 

651 

652 

653 

654  C 

655  C 

656  C 

657  C 

658 

659 

660 
661 
662 

663 

664 

665  35 

666 

667  36 

668 

669  C 

670  C 

671  C 

672 

673 

674  575 

675  251 

676 

677 

678  203 

679  204 

680 

681  C 

682  C 

683  C 

684 

685 

686 

687 

688 
689 


COMPUTE  SECOND  DERIVATIVES  OF  PHASE  VELOCITY  FOR  WATER  DEPTHS 

DVDXX=Wt(DHDXXfYH»(DHDXtt2) ) 

DVDYY=WIDHDYY 

DVDXY=W»DHDXY 

UD4X=(DUDX-UVRAtDVDX)/V 

UD5X  =  (  (>nDHDXX-UD3XtDHnX)/DEP5-D'JDXX 

UD6=-UD3XJ!(  ((0I*t2)  tUD3X/V)+4.»UDUUD4X) 

UD7*DSQRT< (QI»»2)44.»(UD1»»2)) 

COMPUTE  SECOND  DERIVATIVES  OF  CONVENTIONAL  GROUP  VELOCITY 
FOR  MATER  DEPTHS 

DUDXX=UVRA*DVDXX+UD4X»(DVDX+UD2tUD3X)+UDl»( (UD6/UD7)+UD2tUD5X) 
DUDYY=UVRA»DVDYY+UD1»UD2»( <V/DEP>»DHDYY-DVDYY) 
DUDXY=UVRA»DVDXY+UD1»UD2»(  (V/DEP)*IiHDXY-DVDXY) 

COMPUTE  SECOND  DERIVATIVES  OF  GEOMETRIC  GROUP  VELOCITY  FOR 
WATER  DEPTHS 

DGDXX=RH0*(DUDXX»C0SPHI-DPHIDXt(2.t»UDX»SINPHHG1tDPHIDX) 

1  -U»SINPHIt(TANAMA»(DADX<»2)-rANAVMt((DVDXX/V)  +  (DAVDXt*2)  ) ) ) 

IF  (DABS(TANAMA)  .GT.  0.08748866DO  .AND.  DABS(TANAVM)  ,GT, 

1  0.08748866DO)  GO  TO  35 

ZETA»1. 

XI»0. 

GO  TO  36 

ZETA»1 .0/(1 .0-TANPHI/TANAMA) 

XIsUtSINPHI/VUTANAVM 

DGDYY*ZETAt(DUDYY*COSPHI-XI<DVDYY) 

DGDXY=RHO»(DUDXY»COSPHI+SIGMA»DVDXY) 

COMPUTE  Q  FOR  MATER  DEPTHS  IN  ROTATED  XY-SYSTEM 

QOTD*(G*<  (SINAMA*»2)»DGDXX-2.l:SINAHA»C0SAMA»DGDXY  + 

1(C0SAMA»»2)*DGDYY) )/(GRID<»2) 

IF  (NC  .EQ.  0)  GO  TO  252 
IF  (NFK  .EQ.  2)  GO  TO  203 
WO»-V/OMEGA 
GO  TO  204 

H0s(DEPXAGRtVXA2V2-(VtX3))/(0M£GAXHHA0) 

WAVNO»OMEGA/V 

CTAVM«DTAN(AV-CALFA) 

COMPUTE  COMPONENT  OF  CURRENT  NORMAL  TO  WAVELET  FRONT 

UK=ZtCOAVMZ 

RMKLl»ZtSIAVMZ/VT 

RMK«RMKL1XCTAVM 

RMK1>1.D04RMK 

RMKL2=UK<< 1 . DO-MAVNOTWO ) /V 

0D1*1 . DO/ < 1 . DO- ( HAVNOtRNK*HO/RMKl ) +RMKL2 ) 
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690  0D2=DZDX»C0Ay«Z+Z»SIAVM2J!D2DDX 

691  OMEGX*-ODl<<WAyNO/RMKl)«OD2 

692  RMKY=RMKLl/CTAyM 

693  RMKY1=1-RMKY 

o94  0DY1=1 .D0/(1 .D0-(WA0N0*RMKYtW0/RMKYl)tR«KL2) 

695  0DY2=Z»SIAyMZl:DZDDY 

696  OMEGY=-ODY1»(WAVNO/RMKY1 )*0DY2 

697  C 

698  C  COMPUTE  THE  FIRST  DERIUATIOES  OF  THE  PHASE  OELOCITY  FOR 

699  C  CURRENTS 

700  C 

701  CDVDX=U01I0MEGX 

702  CDVDY=UOtOMEGY 

703  C 

704  C  COMPUTE  FIRST  DERIVATIVES  OF  CURRENT  COMPONENT  NORMAL  TO 

705  C  WAVELET  FRONT 

706  C 

707  UKX=(-RMK»CDVDX+0D2)/RMK1 

708  UKY  =  <RMKY1tCDVDY+0DY2)/RMKYl 

709  CAMALF=A-CALFA 

710  CSAM=DSIN(CAMALF) 

711  CCAM=DCOS(CAMALF) 

712  CTAM=DTAN(CAMALF) 

713  IF  (NFK  .EQ.  2)  GO  TO  207 

714  C 

715  C  COMPUTE  FIRST  DERIVATIVES  OF  CONVENTIONAL  GROUP  VELOCITY  FOR 

716  C  CURRENTS  IN  DEEP  WATER 

717  C 

718  CDUDX»CDVDX/2. 

719  CDUDY=CDVDY/2. 

720  GO  TO  208 

721  207  UDC1=<V/0MEGA)«0MEGX-CDVDX 

722  UDCY1»<V/0MEGA)«0MEGY-CDVDY 

723  C 

724  C  COMPUTE  FIRST  DERIVATIVES  OF  CONVENTIONAL  GROUP  VELOCITY  FOR 

725  C  CURRENTS 

726  C 

727  CDUDX=UVRA«CDVDX+UDl«UD2tUDCl 

728  CDUDY=UVRA<CDVDY+UD1«UD2<UDCY1 

729  208  RMCOM=Z<SIAMZD/GT 

730  RM»RMCOMtCTAM 

731  RM1=1.D0+RM 

732  RNT=<U<SINPHI«CTAM)/GT 

733  RNG*(U<SINPHI»CTAVM)/VT 

734  GDC2=DZDXtC0AMZD+Z1iSIAMZD»DZDDX 

735  GDC3=RNT/RM1 

736  RMY=RMCOM/CTAM 

737  RMY1»1.D0-RMY 

738  RNTY=<U<SINPHI)/(GT«CTAM) 

739  RNGY»<U<SINPHI)/(VTtCTAVM) 

740  GDCY2*Z<SIAMfD»DZDDY 

741  GDCY3»RNTY/RMY1 

742  C 
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743  C  COMPUTE  FIRST  DERIVATIVES  OF  GEOMETRIC  GROUP  VELOCITY 

744  C  FOR  CURRENTS 

I  VT  745  C 

7  46  CDGDX=(CDUDXTCQSPHI-GDC3»GDC2-l-RNG4(CDVDXtU!<X) )  /  ( ]  .D0-fGDC3) 

74  7  CDGDY=(CDUDyTC0SPHI+GDCY3<GDCY2-RNGYt(CDVDY+UKY)  ) / ( 1 . D0-GDCY3 ) 

748  C 

"49  C  COMPUTE  FIRST  DERIVATIVES  OF  CURRENT  COMPONENT  NORMAL  TO 

'50  C  3RGUP  FRONT 

i  751  C 

752  UNX=(-RNtCDGDX+GDC2)/RMl 

753  UNY=(RMYtCDGDY+GDCY2)/RMYl 

754  C 

755  C  COMPUTE  PACKET  RAY  CURVATURE  FOR  CURRENTS  IN  ROTATED  XY-SYSTEM 

I  756  C 

I  757  DSRAC=DCOS(ARAY-CALFA)/CCAM 

758  FKAC=(CSAM«(CDGDX+UMX)-CCAM»(CDGDY+UMY))»DSRAC 

759  IF  (IHGT  .EQ.  0)  GO  TO  252 

760  C 

761  C  COMPUTE  P  FOR  CURRENTS  IN  ROTATED  XY-SYSTEM 

5  762  C 

*  763  P0TC=<-2.0*(CCAM*(CDGDX+UMX)+CSAM»(CDGDY+UMY) ) )/GRID 

^64  IF  (NFK  .EQ.  2)  GO  TO  209 

765  Y0=2.»V/(0MEGAI*2) 

766  GO  TO  210 

767  209  YQ1=W0/V 

I  ^  768  Y02=<AGR-DEP»<0MEGA«2))«<Y01«2)  +  2.tDEP«0MEGAXY01- 

^  769  1  <AGR/<0MEGA««2))-DEP 

770  Y0=<2.»V/WHA0)«<  <  <V/0MEGA)«lt2)+DEP*A2V2»Y02) 

;  771  210  CDAVDX»<CTAVM/VT)»<CDVDX+UKX) 

772  GMZDX-CDAVDX-DZDDX 

.  773  GMZDX2*<GMZDX»»2) 

I  774  OD3»(DZDXX»COAVMZ-2.DO»DZDX»SIAVMZ»GMZDX-Z»COAVMZ»GHZDX2+ 

;•  775  1  Z»SIAVMZ»<-CTAVM»<CDAVDX»*2)+DZDDXX) )/RMKl 

776  0D4-( l.DO-WAVNO<gO)/V 

!:  777  WAVN0X=0D4«0MEGX 

S  778  0D5»l.D0/<l.D0-<WAVN0»RMKitU0/RMKl)+RMKL2) 

-  779  0MEGXX=0D5«< <WAVN0»RMK»Y0/RHK1)»(0MEGX»»2)-WAVN0*0D3- 

!  780  1  2.D0XUAVN0XXUKX-)-(UKiGMEGX/V}«(0D4tCDVDX4 

781  2  WAVMO»YO«OMEGX+WO»UAVNOX)) 

782  CDAVDY=-(CDVDY+UKY)/<VT»CTAVM) 

783  GMZDY=CDAVDY-DZDDY 

784  GMZDY2*(GMZDY«t2) 

'  785  ODY3=(DZDYY*COAVMZ-Z»COAVMZ»GMZDY2+ 

i  786  1  ZtSIAVMZt( ( (CDAVDY»»2)/CTAVM)+DZDDYY) )/RMKYl 

787  WAVNOY=OD4tOMEGY 

788  ODY5=1.DO/(1.DO+(WAVNO<RMKY»UO/RMKY1)+RMKL2) 

789  ODY6»<UK/V)»(OD4»CDVDY+UAVNO»YO»OMEGY+WO»WAVNOY) 

790  0MEGYY*0DY5t ( - ( UAVN0»RMKY«Y0/RMKY1 ) »( 0MEGY»»2 ) -WAVN0t0DY3- 

I  791  1  2.D0t«AVN0YtUKY+0DY6»0NEGY) 

7  V.-.  792  ODXY4«(DZDXYXCOAVMZ-DZDX«SIAVMZ»GMZDY-Z»COAVMZtGMZDXtGMZDY+ 

793  1  Z»SIAVMft(-( (1 .D0/CTAVM)+2.D0tCTAVM)»CDAVDXtCDAVDY+ 

^  794  2  DZDDXY) )/RMKl 

:•  795  OMEGXY*OD5t( (WAVNOtRMK*YO/RMKl ) *0MEGX»0MEGY-WAVN0X0DXY4- 
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?! 

816 

817 

318 

- 

819 

211 

- 

820 

■ 

821 

822 

V  • 

823 

824 

•• 

825 

826 

i 

827 

c 

828 

c 

829 

c 

830 

c 

831 

832 

* 

833 

;  • 

834 

I'l- 

835 

836 

837 

CM 

CM 

L  * 

838 

839 

840 

841 

842 

843 

m 

844 

845 

846 

847 

848 

1  UAVNOY»UKX-WAVNQX»UKY+ODYA<OMEGX ) 

COMPUTE  SECOND  DERIUATIVES  OF  PHASE  VELOCITY  FDR  CURRENTS 

CDUDXX=WOJO«£GXX+YO*<OMEGXX»2) 

CDVDYY=W0*0MEGYY+Y0»(0MEGY*t2) 

CDVDXY=WO»OMEGXY  +  YO*OMEGXI!OMEGY 

COMPUTE  SECOND  DERIVATIVES  OF  CURRENT  COMPONENT  NORMAL  TO 
WAVELET  FRONT 

UKXX*-(RMK1ICDVDXX/RMK1)+0D3 
UKYY»(RMKY»CDVDYY/RMKY1 )+0DY3 
UKXY»-(RMK»CDVDXY/RMK1)+0DXY4 
IF  (NFK  .EQ.  2)  GO  TO  211 

COMPUTE  SECOND  DERIVATIVES  OF  CONVENTIONAL  GROUP  VELOCITY  FOR 
CURRENTS  IN  DEEP  WATER 

CDUDXX=CDVDXX/2. 

CDUDYY=CDVDYY/2. 

CDUDXY=CDVDXY/2. 

GO  TO  212 

UDC2=(CDUDX-UVRA*CDVDX)/V 
UDC3=< (VIOMEGXX-UDCl*OMEGX)/OMEGA)-CDVDXX 
UDC4»-UDC1I<  <  <0I«2)I:UDC1/V)+4.»UD1*UDC2) 
UDC5»DSQRT<(0I*»2)+4.«<UD1»»2)) 

UDCY2»<CDUDY-UVRA»CDVDY)/V 
UDCY3*(  (V»OMEGYY-UDCYll!OMEGY) /OMEGA  )-CDVDYY 
UDCY4»(  (0Il!»2)l!UDCYl/V)+4.»UDlltUDCY2 
UDCXY3»(  (VI!0MEGXY-UDCY1»0MEGX)/0MEGA)-CDVDXY 

COMPUTE  SECOND  DERIVATIVES  OF  CONVENTIONAL  GROUP  VELOCITY  FOR 
CURRENTS 

CDUDXX=UVRAI!CDVDXX+UDC2<(CDVDX+UD2»UDC1)  + 

1  UD1*( (UDC4/UDC3)+UD2»UDC3) 

CDUDYY»UVRA»CDVDYY+UDCY2I!(CDVDY+UD2»UDCY1)  + 

1  UDH!(  (-UDCY1»UDCY4/UDCS)+UD2»UDCY3) 

CDUDXY»UVRAI!CDVDXY+UDCY2»(CDVDX+UD2»UDC1  )  + 

1  UD1»(  (-UDC1I!UDCY4/UDC5)+UD2»UDCXY3) 

CDADX*(CTAM/GT)»(CDGDX+UMX) 

CDADY=-(CDGDY+UMY)/(CTAMI!GT) 

CDPHDX»CDADX-CDAVDX 

CDPHDY«CDADY-CDAVDY 

TMZDX*CDADX-DZDDX 

TMZDX2»(TMZDX*1t2) 

TMZDY-CDAOY-DZDDY 

TMZDY2»(TMZDY»»2) 

GDC4»(C0AMZD»DZDXX-2.D0<DZDX»SIAMZD»TMZDX-Z»C0AMZD»TMZDX2+ 

1  ■  Z»SIAMZ8»(-CTAM*(CDADX«»2)+DZDDXX) )/RMl 

GDCY4»(C0AMZD»DZDYY-Z»C0AMZD»TNZDY2+ 

1  Z»SIAMZD»( ( (CDADY»»2)/CTAM)+DZDDYY) )/RMYl 
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1 
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C 
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C 
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1 
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C 
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1 
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865 

866 

867 

868 

1 

869 

c 

* 
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C 

871 

c 

872 

c 

873 

i 

874 

m 

875 

876 

c 

377 

c 

•; 

878 

c 

879 

I 

880 

V. 

881 

c 

882 

c 

% 

883 

c 

884 

c 

885 

252 

I 

886 

• 

887 

888 

C 

889 

C 

890 

C 

! 

891 

C 

892 

C 

to 

893 

C 

894 

C 

895 

'» 

896 

C 

1 

897 

C 

1 

898 

c 

k 

899 

•; 

900 

c 

901 
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RMXY=ZtCOAMZD»CTAM/GT 

RMXY1=1.D0+RMXY 

GDCXY4=(C0AMZD»DZDXY-TM2DY»(DZDX1:SIAMZD+Z»C0AMZD*TMZDX)+ 

1  2tC0AHZDJ(-CDADXXCDADYt(  ( 1 . /CT  AM ) -l-Z  .  *CT  AM )  + 

2  DZDDXY  )  )/RMXYl 

COMPUTE  SECOND  DERIUATIUES  OF  GEOMETRIC  GROUP  VELOCITY  FOR 
CURRENTS 

CDGDXX=(CDUDXX»C0SPHI-CDPHDXt(2.D0»CDUDXtSINPHI+GXC:DPHDX)- 

1  RNT»GDC4-U*SINPHI«CTAH*(CDADXt»2)+RNG»(CDVDXX+UKXX)+ 

2  UtSINPHItCTAVM*(CDAVDX»t2))/(l .DO+(RNT/RMl) ) 
CDGDYY=(CDUDYYtCOSPHI-CDPHDY»(2.DO»CDUDYtSINPHI+G»CDPHDY)+ 

1  RNTY<GDCY4+U*SINPHI*( (CDADYtt2)/CTAM)-RNGY»(CDVDYY+ 

2  UKYY)-U*SINPHI*( (CDAVDY»»2)/CTAVM) )/(l  .D0-GDCY3) 
CDGDXY=(CDUDXY»COSPHI-CDPHDY»(CDUDX»SINPHI+G»CDPHDX)- 

1  CDUDYtSINPHI*CDPHDX-RNT»GDCXY4-U*SINPHI*CDADX* 

2  CDADY»(  (l./CTAM)  +  2.J!CTAM)+RNG»<CDVDXY  +  UKXY)  + 

3  U»SINPHItCDAVDX*CDAVDYl!(  (l,/CTAVM)+2.  JCTAVM)  )/ 

4  (1 .DO+(RNT/RMXYl) ) 

COMPUTE  SECOND  DERIVATIVES  OF  CURRENT  COMPONENT  NORMAL  TO 
GROUP  FRONT 

UMXX=-(RM*CDGDXX/RM1)+GDC4 

UMYY»(RMY*CDGDYY/RMY1)+GDCY4 

UMXY=-(RMXY»CDGDXY/RMXY1)+GDCXY4 

COMPUTE  Q  FOR  CURRENTS  IN  ROTATED  XY-SYSTEM 

Q0TC=GT«<<CSAM«2)<(CDGDXX+UMXX)-2.<CSAM»CCAM» 

1  (CDGDXY+UMXY)+(CCAM»*2)«(CDGDYY+UMYY))/(GRID»»2) 

COMPUTE  PACKET  RAY  CURVATURE f  Pf  AND  Q  FOR  WATER  DEPTHS  AND 
CURRENTS 

FK*(FKAO+FKAC)/GT 

POT*POTD+POTC 

QOT=QOTD+QOTC 

tttttttttttttttttttttttttttttttttttxttttttttt 

ttxtt  ttttt 

tttxt  END  OF  CURVATUREf  P  AND  Q  SEGMENT  ttttt 
ttttt  ttttt 

ttttttttttttttttttttttttttttttttttttttttttttt 

IF  (MAXQ  .GT.  1)  GO  TO  405 

COMPUTE  INITIAL  0(BETA)/DT  FOR  WATER  DEPTHS 

IF  (ND  .EQ.  t)  BDZ=-TANAMAl;SINAMA*DGDX/GRID 

COMPUTE  INITIAL  CHANGE  IN  WAVELET  DIRECTION  FOR  STARTING  THE 
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|s»! 

112 

902 

C 

RAY  CURVATURE  CALCULATIONS  OF  THE  WAVELET  DIRECTION 

903 

c 

904 

IF  (ND  .EQ.  1  .AND.  NC  .EQ.  1)  DELAV= 

905 

1  ( (DTAN(SVAV-ALFA)tDCOS<ARAY-ALFA)<DVDX)+ 

90.S 

2  DCOS(ARAY-CALFA)  J:(DTAN(SVAV-CAL.- A)X(CDUDXtUKX)- 

907 

3  (CDVDY+UKY) ) ) X ( GR/VT ) l( DELTAT/GRI D ) 

908 

405 

IF  (NAXQ  .EQ.  MAXQSA)  GO  TO  403 

909 

MAXQSA=«AXQ 

910 

IF  (lONCE  .EQ.  0  .OR. 

911 

1  IDBDT  .EQ.  0  .OR. 

912 

2  DABS<Z)  .LE.  l.D-6)  GO  TO  403 

913 

C 

914 

C 

COMPUT  INITIAL  D<BETA)/DT  FOR  CURRENTS 

915 

C 

916 

BDZA=-(BZtCSAHXCTAH)X( (CDGDX+UHX)/GRID) 

917 

BDZ=BDZ+BDZA 

918 

I0NCE=O 

919 

403 

RETURN 

920 

END 

001 

SUBROUTINE  VELCTY(V.TT.HAXQ»DEP»NFKfU»NC»A6R) 

002 

C 

003 

c 

PURPOSE 

004 

c 

005 

c 

THIS  ROUTINE  COMPUTES  THE  PHASE  VELOCITY  AND  CULINEAR 

006 

c 

(CONVENTIONAL)  GROUP  VELOCITY. 

007 

c 

1 

008 

c 

SUBROUTINES  REQUIRED 

009 

c 

010 

c 

NONE 

on 

c 

012 

IMPLICIT  REALI8  (A-H,0-Z) 

013 

c 

014 

IF  (HAXQ  .GT.  1  .AND.  NC  .EQ.  0)  GO  TO  102 

015 

BAR»6,283185308D0/TT 

016 

CXX0STTXAGR/6.283185308D0 

017 

CCC=CXXO 

018 

GO  TO  103 

019 

102 

CCC=XCXY 

020 

103 

IF  (NFK  .EQ.  2)  GO  TO  105 

021 

C 

022 

c 

PHASE  VELOCITY  IS  EQUAL  TO  DEEP  WATER  VALUE 

023 

c 

024 

V=CXXO 

025 

GO  TO  106 

026 

105 

DO  1000  M*1.90 

027 

C 

028 

C 

COMPUTE  PHASE  VELOCITY  FOR  WATER  OF  ARBITRARY  DEPTH 

029 

C 

030 

V»CXXO*DTANH(BARXDEP/CCC) 

031 

IF  (DABS(V-CCC)  .LT.  .00005D0)  GO  TO  106 

1 

- - -■  j 

113 


1000  CCC=(V+CCC)/2. 

106  XCXY=V 

BAR2=2.»BAR*DEP/y 
IF  (NFK  .EQ.  2)  GO  TO  3036 

036  C 

037  C  COHPUTE  DEEP  WATER  VALUE  OF  GROUP  VELOCITY 

038  C 

039  U=.5»V 

040  GO  TO  107 

041  C 

042  C  COHPUTE  GROUP  VELOCITY  FOR  WATER  OF  ARBIRTRARY  DEPTH 

043  C 

044  3036  U=.5»V»(1.+2.*EIAR2/(DEXP(BAR2)-DEXP(-BAR2)  ) ) 

045  107  RETURN 

046  END 


032 

033 

034 

035 


001 
002  C 
003  C 
004  C 
005  C 
006  C 
007  C 
008  C 
009  C 
010  C 

on  c 

012  C 
013  C 
014  C 
015 
016  C 
017 
018 
019  C 
020  C 
021  C 
022  C 
023 
024 

025  901 

026 
027 
028 
029 
030 

031  902 

032 


SUBROUTINE  PCD ( C » E > PCTDIF ) 
PURPOSE 


THIS  ROUTINE  DETERHINES  THE  DIFFERENCE  BETWEEN  THE  GRID 
VALUE  AND  THE  VALUE  CONFUTED  FROH  THE  12-POINT  SURFACE 
FIT  FOR  THE  4  GRID  POINTS  CLOSEST  TO  THE  RAY  POINT. 

THE  MAXIMUH  PERCENTAGE  DIFFERENCE  OF  THE  4  GRID  POINTS 
IS  DETERMINED. 

SUBROUTINES  REQUIRED 

NONE 

IMPLICIT  REAL*8  (A-H»0-Z) 

DIMENSION  C(12)>E(6) 

IF  (C(4)XC(5)*C(8)i:C(9)  .NE,  0.)  GO  TO  901 

PCTDIF  IS  SET  TO  999  IF  THE  PRODUCT  OF  THE  FOUR  GRID 
VALUES  IS  ZERO 


PCTDIF=999. 

GO  TO  902 

P1=DABS(  (C(4)-(E(1)+E(2)+E<3)+E(4)+E(5)+E(6) ) )/C(4) ) 

P2=DABS( (C(5)-(E(1)+E(2)+2.J!E(3)+E(4)+E(5)*2.+E(6)<4. ) )/C(5) ) 
P3=DABS((C(8)-(E(1)+E(2)*2.+E(3)+E(4)M.+E(5)«2.+E(6) ) )/C(8) ) 
P4»DABS((C(9)-(E(l)+E(2)i!2.+E(3)X2.+E(4)*4.+E(5)»4.+E(6)<4. ) )/ 
1  C(9)) 

PCTDIF=100,J!DMAX1(P1.P2»P3»P4) 

RETURN 

END 
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001  SUBROUTINE  STORE ( X » Y » A* KMAX » TIMEQ » KCI N f KREST  ) 

002  C 

003  C  PURPOSE 

004  C 

005  C  IS  THIS  ROUTINE  THE  COORDINATES  OF  EACH  RAY  POINT  ARE  3IGRED. 

006  C  IF  0E3IRED»  THE  LOCATIONS  OF  TICK  MARKS  AT  EdUAL  TIME 

007  C  INTERVALS  ALONG  THE  RAY  ARE  COMPUTED  AND  STORED. 

008  C 

009  C  SUBROUTINES  REQUIRED 

010  C 

on  C  NONE 

012  C 

013  IMPLICIT  REALItS  (A-H»0-Z> 

014  C 

015  DIMENSION  CONTURD( 9 ) » EM< 6 » 12) » S ( 6 »6 ) 

016  DIMENSION  C ( 12 ) » CX ( 12 ) » CY ( 12 ) »E ( 6 ) f EX ( 6 ) f EY ( 6 ) 

017  C 

018  COMMON  /GRDCOM/ 

019  1 

020  COMMON  /PRTCOM/ 

021  1 

022  COMMON  /MAICOM/ 

023  1 

024  2 

025  3 

026  COMMON  /RAYCOM/ 

027  1 

028  2 

029  3 

030  4 

031  C 

032  IF  (CIM  .LE.  0)  GO  TO  403 

033  IF  (KMAX  .GT.  1 )  GO  TO  401 

034  AT»0. 

035  C 

036  C  STORE  POINT  COORDINATES 

037  C 

038  403  KQ=KMAX+KCIN 

039  AX(KQ)*X 

040  AY(KQ)=Y 

041  IF  (CIN  .LE.  0.)  GO  TO  205 

042  402  ZA»A 

043  SAVEGR=GR 

044  GO  TO  205 

045  401  ET=TIMEQ-AT 

046  IF  (CIN-ET)  405»404»403 

047  C 

048  C  RAY  POINT  AND  TICK  MARK  COINCIDE^  STORE  WITH  NEGATIVE  X 

049  C 

050  404  KQ«KMAX+KCIN 

051  AX(KQ)»-X 

052  AY(.<Q)«Y 

053  KREST=KREST+1 


CMAT(120»120)»  CURX(120.120)  f  CLIRY  ( 1 20 »  120 )  . 
CURR(120»120)»  AX(4500)f  AY(4500) 
HT.MXPLOT»NOR»NPT»NAXfNSH.NCO>NCC.NXCMAT. 
MM»NNiNNSKlP 

ALFA,AMM»ANN»CF.CINfCNVRSA.C0NTURD.DATEl.DATE2f 

DC0N»DELTAT»DIR»DY»EM»GRID»HGT2>AKRT0LfPR0JCTf 

S»SDLTATfNSK»TT»NUBRK»NBRKUPfNFANfNFLAGR> 

NOLINEf IFLG»MOEfNFLECTfNFRACT»NRFLBUfNRFRBlWNROPT 

BDZ»C>CX»CY»D»HELA»DEPfDGDX»DHDXfEfEXfEYfGfGZEROf 

HGT»AKFC»AKR»AKS»P0TtPREVfPl»P2fP3»P4fP5fQ0TfQn 

Q2»Q3*Q4»Q5»PU»SVV»PDEPf SPREVfGTZEROf 

PALFA»SVAV»PG»U»V»IHGTr 

NTOREF  > I NUM>  MAXQ>  NUMT  r  NOREF 


AT=AT+CIN 
GO  TO  402 


054 
055 
056  C 

057  C  COMPUTE  LOCATION  OF  TICK  MARK  AND  STORE  WITH  NEGATIVE  X 

058  C 

059  405  DSC=(ET-CIN)t(GR+SAVEGR)t3600.D0/(GRID*2. ) 

060  AA=(A+ZA)/2. 

061  XM=DSC»DCOS(AA) 

062  YM=DSC»DSIN(AA) 

063  KQ=KHAX+KCIN 

064  AX(KQ)=-X+XM 

065  AY(KQ)=y-YM 

066  KREST=KREST+1 

067  KCIN=KCIN+1 

068  AT=AT+CIN 

069  GO  TO  401 

070  C 

071  C  THEN  EXIT 

072  C 

073  205  RETURN 

074  END 


001 
002  C 
003  C 
004  C 
005  C 
006  C 
007  C 
008  C 
009  C 
010  C 

on  c 

012  C 
013 
014  C 
015 
016 
017  C 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 


SUBROUTINE  DRAW  (NiKMAX^KCINiKREST) 


PURPOSE 

THIS  ROTUINE  DRAWS  AND  NUMBERS  THE  RAYS.  IF  DESIRED»  TICK 
MARKS  ARE  DRAWN  AT  EQUAL  TIME  INTERVALS. 

SUBROUTINES  CALLED 

PLOT  CALCOMP  ROUTINE  TO  MOVE  THE  PEN 

NUMBER  CALCOMP  ROUTINE  TO  DRAW  A  NUMBER  AT  A  POINT 

IMPLICIT  REAL»8  (A-H»0-Z) 


DIMENSION  C0NTURD(9)fEM(6»12) fS(6»6) 

DIMENSION  C<12)  »CX(12)  »CYn2)  fE(6)  »EX(6)  .EY(6) 


COMMON 


COMMON 


1 

( 

1 

2 

3 

( 

1 

2 

3 


COMMON 


COMMON 


/GRDCOM/ 

/PRTCOM/ 

/MAICOM/ 

/RAYCOM/ 


CMAT(120f 120)f  CURX(120»120)»  CURY( 120» 120) » 
CURR(120»120)»  AX(4500).  AY(4500) 
HT»MXPLOT»NOR»MPT»NAX»NSH»NCO»NCC»NXCMAT» 
MH>NN>NNSKIP 

ALFA>AMMrANN»CFfCINfCNVRSA>C0NTURD>ItATElfDATE2f 
DCONf  DELTATr  DIR»  DY»  EMf GRIDf HGTZf  AKRTOLf  PROJCT  r 
S»SDLTATrNSK»TT.NWBRK»NBRKUP»NFAN»NFLAGR» 

NOLINE. IFLG.MOE.NFLECT.NFRACT.NRFLBU.NRFRBU.NROPT 
BDZ.C.CX.CY.D.DELA.DEP.DGDX.DHDX.E.EX.EY.G.GZERO. 
HGTfAKFC.AKR.AKS.P0T.PREV.Pl.P2.P3.P4.P5.Q0T.Ql. 
Q2.Q3.Q4.Q5.PU.SVV,PDEP.SPREV.GTZER0. 

PALFA. SVAVfPG.U.V.IHGT. 


A 


NTOR£F»INUH»MAXQ»MUMT»NOREF 


030 

031 

C 

032 

033 

034 

035 

036 

037 

601 

038 

C 

039 

C 

040 

C 

041 

042 

043 

044 

045 

046 

047 

201 

048 

049 

050 

C 

051 

C 

052 

c 

053 

104 

054 

055 

056 

057 

058 

C 

059 

C 

060 

C 

061 

062 

111 

063 

064 

105 

065 

066 

C 

067 

C 

068 

C 

069 

300 

070 

071 

302 

072 

073 

074 

075 

076 

500 

077 

078 

079 

430 

080 

081 

082 

XN=N 

!<MAX  =  KMAX  +  KCIN 

IF  (AX(KflAX)  .G£.  0.)  GO  TO  601 
AX(KMAX)=-AX(KMAX) 

XRF':''  =  KR£ST-1 

IF  0D(r;»2)  .N£.  0)  GO  TO  104 

BEGIN  EVEN-NUMBERED  RAY  WITH  THE  TERMINAL  POINT 

KTW0*KMAX-1 

KADD*-1 

LAST=1 

MC=KR£ST+1 

IF  (NFAN  .£Q.  0)  GO  TO  201 

CALL  NUMBER  ( AX ( KMAX ) /DY » AY( KMAX ) /DY »0 . 1 » XN» 0 , 0 » - 1 ) 

CALL  PLOT  (AX(KMAX)/DY»AY(KMAX)/DY»3) 

IF  (KMAX  .L£.  1)  GO  TO  106 
GO  TO  105 


BEGIN  ODD  NUMBERED  RAY  WITH  THE  INITIAL  POINT 


KTU0=2 

KADO^l 

LAST=KMAX 

MC»0 

IF  (NFAN  .NE.  0)  GO  TO  111 

NUMBER  RAY  AT  THE  INITIAL  POINT 

CALL  NUMBER  ( AX( 1 )/DY » AY( 1 )/DYf 0. 1 »XN»0. 0 f-1 ) 
CALL  PLOT  (AX(1)/DY»AY(1)/DY»3> 

IF  (KMAX  .LE.  1)  GO  TO  106 
IF  (CIN  .LE.  0.)  GO  TO  300 
IF  (AX(KTHO)  .LT.  0.)  GO  TO  302 

DRAW  SEGMENT  OF  RAY 

CALL  PLOT  (AX(KTW0)/DY»AY(KTU0)/DYf2) 

GO  TO  303 

AX(KTW0)=-AX(KTH0) 

WI=.OS 

MC»MC+KADD 

IF  (MOD(MCflO)  .NE.-O)  GO  TO  500 
WI=.10 

XPN«AX(KTWO)/DY 

YPN«AY(KTHO)/DY 

KQ»KTHO-KADD 

XPL=AX(KQ)/DY 

YPL»AY(KQ)/DT 

IF  (DABS(XPN-XPL)  .LT.  .0005D0  .AND. 

1  DABS(YPN-YPL)  .LT.  .0005D0)  GO  TO  410 


083 

GO  TO  420 

084 

C 

085 

C 

POINTS  ARE  TOO  CLOSE  TOGETHER 

086 

c 

087 

410 

.  _ 

088 

GO  TO  430 

089 

420 

DSC  =  DSQRT( (XPH-XPL)<»2-K  YPN-YPL)«»2) 

0<’0 

C 

091 

C 

DRAy  THE  RAY 

092 

C 

093 

CALL  PL0T(XPH»YPH»2) 

094 

XB=UI*(YPN-YPL)/DSC 

095 

YB=-WI»(XPN-XPL)/DSC 

096 

c 

097 

c 

DRAM  THE  TICK  MARK  ON  THE  RAY 

098 

c 

099 

CALL  PLOT  (XPN+XB»YPN+YB»2) 

100 

CALL  PLOT  (XPN-XB»YPN-YB»2) 

101 

CALL  PLOT  (XPN»YPN»2) 

102 

303 

IF  (KTWO  .EQ.  LAST)  GO  TO  106 

103 

KTUO=KTUO+KADD 

104 

GO  TO  105 

105 

106 

IF  (KADD  ,GE.  0)  GO  TO  108 

106 

IF  (NFAN  ,NE,  0)  GO  TO  205 

107 

CALL  NUMBER  ( AX ( 1 ) /DY , AY( 1 )/DY r 0 , 1 » XN» 0 . 0 » - 1 ) 

108 

GO  TO  205 

109 

108 

IF  (NFAN  ,EQ,  0)  GO  TO  205 

no 

C 

in 

c 

NUMBER  THE  RAY  AT  THE  TERMINAL  POINT 

112 

c 

113 

CALL  NUMBER  ( AX(KMAX) /DY ,AY(KMAX)/DY »0. 1 » XN»0 ,0 »-l ) 

114 

205 

RETURN 

115 

END 

116 

SUBROUTINE  lOSET 

117 

C 

118 

C 

PURPOSE 

119 

C 

120 

C 

THIS  SUBROUTINE  SETS  UP  THE  I/O  FILES  FOR  THE 

VARIOUS 

121 

c 

HAVPAK  ROUTINES.  THE  USER  IS  ASKED  FOR  EACH 

FILE  NAMEt 

122 

c 

WHICH  IS  THEN  OPENED  AND  MADE  READY  FOR  I/O. 

THIS  IS 

123 

c 

THE  ONLY  TOTALLY  VAX  DEPENDENT  SUBROUTINEt  AND  MAY  BE 

124 

c 

REPLACED  BY  THE  APPROPRIATE  JOB  CONTROL  LANGUAGE  ASSIGNMENTS 

125 

c 

FOR  THE  PARTICULAR  MACHINE  USED. 

*  ,*• 

126 

c 

127 

c 

SUBROUTINES  REQUIRED 

128 

c 

129 

c 

NONE 

130 

c 

131 

CHARACTER»20  FILE-NAME 

132 

c 
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133  C  FIRST»  SET  UP  THE  DATA  INPUT  FILE  NAME 

134  C 

135  TYPE  100»'$ENTER  THE  CONTROL  FILE  NAME  ' 

136  READ(5»100)  FILE-NAME 

137  CLOSE(UNIT=l) 

138  OPEN(UNIT=l.NAME=FILE-NAME.TYPE='OLD' »DEFAULTFILE^' .CTL' ) 

139  C 

1-0  C  NOW  THE  WATER  DEPTH  GRID  INPUT  FILE 

141  C 

142  TYPE  100.'$ENTER  WATER  DEPTH  GRID  FILE  NAME  <NONE>  ' 

143  READ(5.100)  FILE-NAME 

144  IF  (FILE-NAME  .EQ.  '  ')  GOTO  20 

145  CL0SE(UNIT=2) 

146  OPEN(UNIT=2»NAME=FILE-NAME»TYPE='OLD'  »liEFAULTFILE  =  '  .GRD'  ) 

147  C 

148  C  NOW  THE  CURRENT  SPEED  INPUT  FILE 

149  C 

150  20  CONTINUE 

151  TYPE  lOO.'iENTER  CURRENT  SPEED  GRID  FILE  NAME  <NONE>  ' 

152  READ(5.100)  FILE-NAME 

153  IF  (FILE-NAME  .EQ.  '  ')  GOTO  30 

154  CL0SE(UNIT=3) 

155  OPEN (UNIT  =  3»NAME=FILE-NAME»TYPE  =  ' OLD ' »DEFAULTFILE-'  .GRD' ) 

156  C 

157  C  NOW  THE  OUTPUT  FILE  NAME 

158  C 

159  30  TYPE  100»'$ENTER  THE  OUTPUT  FILE  NAME  ' 

160  READ(5»100)  FILE-NAME 

161  CL0SE(UNIT=6) 

162  0PEN(UNIT=6.NAME»FILE-NAME»TYPE='NEW' ,DEFAULTFILE=' .OUT' ) 

163  C 

164  C  NOW  THE  PLOT  FILE  NAME 

165  C 

166  TYPE  lOOf'iENTER  THE  PLOT  FILE  NAME  <NONE>  ' 

167  READ(5.100)  FILE-NAME 

168  IF  (FILE-NAME  .NE.  '  ')  GOTO  10 

169  CL0SE(UNIT=9) 

170  0PEN(UNIT=9»NAME='NL:DUMMY.PLT' rSTATUS-'NEW' » 

171  1  CARRIAGECONTROL='LIST') 

172  RETURN 

173  10  CL0SE(UNIT=9) 

174  0PEN(UNIT=9»NAME*FILE-NAME>STATUS='NEH' »CARRIAGEC0NTR0L  =  'LIST' » 

175  1  DEFAULTFILE=' .PLT') 

176  RETURN 

177  100  FORMAT(A) 

178  END 


001  SUBROUTINE  PRTPRM ( NPLOT ) 

002  C 
003  C 
004  C 


PURPOSE 


005  C 
006  C 
007  C 
008  C 
009  C 
010  C 

on  c 

012  C 
013 
014  C 
015 
016 
017  C 
018 
019 
020  C 
021 
022 
023 
024 
025  C 
026 
027 
028 
029 
030 
031  C 
032 
033 
034 
035 
036 
037  C 
038 
039  C 
040  C 
041  C 
042 
043  C 
044 
045  C 
046 
047  C 
048 
049 
050  C 
051  C 
052  C 
053 
054 
055 
056 
057 


THIS  SUBROUTINE  PRINTS  THE  PARAMETERS  READ  PROM  THE 
CONTROL  FILE.  THE  RAY  PARAMETERS  ARE  NOT  READ  AT  THIS 
TIME. 

SUBROUTINES  REQUIRED 
NONE 

IMPLICIT  REAL*8  (A-HfO-Z) 

DIMENSION  C0NTURD(9) .C0NTURC(9) »EM(6»12) » S( 6» 6 ) » CONTURCl ( 9) 
DIMENSION  C(12) .E(6) »EX(6)»EY(6)»C0NTURD1(9) »CX(12) »CY(12) 

COMMON  /PRTCOM/  HT.MXPLOT»NORtNPT»NAX»NSH»NCO»NCC:fNXCMAT» 

1  MM.NN.NNSKIP 

COMMON  /MAICOM/  ALFA. AMM» ANN» CP t CIN» CNVRSA » CONTURD » DATEl » DATE2» 

1  DC0N.DELTAT.DIR.DY.EM.GRID.HGT2.AKR10L.PR0JCT. 

2  S.SDLTAT.NSK.TT.NUBRK.NBRKUP.NFAN.NFLAGR. 

3  NOLINE.IFLG.MOE.NFLECT.NFRACT.NRFLBU.NRFRBU.NROPT 

COMMON  /RAYCQM/  BDZ . C . CX .CY . D . DELA. DEP . UGDX . DHDX . E . EX  .  EY . G . GZERO . 

1  HGT.AKFC.AKR.AKS.P0T.PREV.P1.P2.P3.P4.P5.Q0T.Q1 . 

2  Q2.Q3.Q4.Q5.PU.SVV.PDEP.SPREV.6TZER0. 

3  PALFA.SVAV.PG.U.V.IH6T. 

4  NTOREF.INUM.MAXQ.NUMT.NOREF 

COMMON  /SRFCOM/  ND » NC.CCON. TTT. ARAY . GR .GT . SARAY . PZ . PZD. 

1  CALFA.PCALFA.PARAY.PREVT.SPREVT.VT.SVT.ASV. 

2  Z.ZD.BZ.KMAX.PX.PY.PTTT.PANGLE.PGR.PPCTD.PPCTCX. 

3  PPCTCY.PGT.SVBZ.SVBDZ.KNUMT.KRFLBU.KRFRBU.CDGDX. 

4  UMX . AGR . PGAM  f PBZ . PBDZ . PFK . PV . PVT 

COMMON/NUMCOM/CONTURC 

SOME  LOCAL  THINGS 

REAL»4  YES.NO.YESNO.INCH.CENTIM. INCH 

DATA  YES.NO.INCH.CENTIM/'YES  '.'NO  '.'  IN  '.'  CM  '/ 

REAL*8  METRIC. ENGLIS.METENG. FEET. METERS. FETMET 

DATA  METRIC. ENGLIS.FEET.METERS/'METRIC  '.'ENGLISH  FEET  '. 

1  '  METERS  '/ 

SET  UP  UNIT  IDENTIFIERS.  DEFAULT  IS  ENGLISH 

INCM  s  INCH 
METENG  »  ENGLISH 
FETMET  «  FEET 
nCONl  »  DCON 
6RID1  =  GRID 


058 
059 
060  C 
Oo  1  C 
062  C 
063 
064 
065 
066 
067 
068 
069 
070 
071 

072  4000 
073  20 
074 
075 

076  3000 
077  C 
078  C 
079  C 
080  10 
031  C 
082  C 
083  C 
084  C 
085  C 
086  C 
087 
088 
089 
090  C 
091  C 
092  C 
093 
094 
095 
096  C 
097  C 
098  C 
099 
100 
101 

102  C 

103  C 

104  C 

105 

106 

107  30 

108 

109  C 

110  C 


CINl  =  CIN 
IF  (MOE  .EQ.  0)  GO  TO  10 

,^OE  <>  0  =>  UNITS  ARE  HETRIC 

INCH  =  CENTIM 

rtETENG  =  METRIC 

FETMET  =  METERS 

DC0N1=DC0N»0.3048 

GRID1=GRIDX0.3048D0 

CIN1»CIN«3600D0 

IF  (ND  .EQ.  0)  GO  TO  20 

DO  4000  I=1>NC0 

CONTURDl ( I)=CONTURD( I)/DCON 
CONTINUE 

IF  (NC  .EQ.  0)  GO  TO  10 
DO  3000  1*1. NCC 

CONTURCl ( I ) =CONTURC ( I ) /CCON 
CONTINUE 

FIRST  SET  OF  DATA 

URITE(6»100)  NPL0T.PR0JCT.DATE1.DATE2.DIR.MXPL0T.METENG 
THE  MEANING  OF  NPT  HAS  BEEN  CHANGED. 


SECOND  SET.  IF  NPT  *  0»  THEN  DON'T  PRINT  INTERMID.  RAY  DATA 
YESNO  *  YES 

IF  (NPT  .EQ.  0)  YESNO  *  NO 

WRITE( 6.200)  NOR. YESNO.NSK.CINl.HT. INCH 

THIRD  SET.  NAX  *  0  *>  NO  CALIBRATE  AXIS 

YESNO  *  YES 

IF  (NAX  .EQ.  0)  YESNO  *  NO 
WRITE(6.300)  YESNO 

FOURTH  SET.  NSH  *  0  =>  DON'T  PLOT  SHORuLINE 
YESNO  *  YES 

IF  (NSH  .EQ.  0)  YESNO  *  NO 
WRITE(6.400)  YESNO 

FIFTH  SET. 

IF  (NO  .EQ.  0)  GO  TO  30 
URITE(6.500)  NCO 
IF  (NC  .EQ.  0)  60  TO  40 
URITE(6.S10)  NCC 

SIXTH  SET.  IF  NXCMAT  *  0  THEN  READ  A  NE«  CMATRIX 


111  c 

112  40  YESNO  =  NO 

113  IF  (NXCMAT  .EQ.  0)  YESNO  =  YES 

11-^  iiR I TE  (  6  f  oOO  )  YE3NQ 

115  IF  (NXCMAT  .EQ.  0)  MRITE(6»610)  Mrt»NN»GRIDl rFETHET 

US  c 

117  C  SEVENTH  SET. 

.lb  L 

119  WRITE(6»700)  CNVRSA» DCONl »CCON»NNSKIP 

120  C 

121  C  EIGTH  SET 

122  C 

123  IF  (ND  .EQ.  0)  WRITE(6»710)  DEP 

124  IF  (ND  .NE.  0)  URITE(6*720) 

125  ZDPRIM  =  (CNVRSA  +  180.0)  -  (ZD/1 .74532925D-2) 

126  IF  (NC  .EQ.  0)  URITE(6»730)  ZtZDPRIM 

127  IF  (NC  .NE.  0)  WRITE(6»740) 

128  C 

129  C  LAST  SET  —  CONTURS  IF  NEEDED 

130  C 

131  IF  (NCC  .NE.  0)  WRITE(6»920)  HETENGUCONTURCK  I )  U  =  1 ‘NCO 

132  IF  (NCO  .NE.  0)  URITE(6»930)  METENG .  ( CONTURDK  I )  f  I  =  U  •^CO  ) 

133  C 

134  C  AND  SPLIT  BACK  TO  THE  SALT  MINES 

135  C 

136  RETURN 

137  100  FORMAT! 'IWAVPAK  --  HAVE  PACKET  TRAJECTORY  ANALYSIS  PROGRAM  V2.0'// 


138  1'  SYSTEM  PARAMTERS  FOR  PLOT  NUMBER  ',I2f'r// 

139  2'  PROJECT  NAME  ..............................  '  »A6/ 

140  3'  PROJECT  DATE  .  U2A6/ 

141  4'  PLOT  IDENTIFICATION  LABEL  .  UA6/ 

142  5'  NUMBER  OF  RUNS  TO  BE  MADE  .  '»I3// 

143  6'  DATA  UNITS  .  'tA8) 

144  200  FORMAT!'  NUMBER  OF  RAYS  TO  BE  RUN  .  '  U3/ 

145  1'  PRINT  INTERMEDIATE  RAY  RESULTS  .  '»A4/ 

146  2'  INTERMEDIATE  RAY  RESULT  INTERVAL  .  '  U3/ 

147  3'  RAY  TICK  MARK  SPACING  .  '»F8.3U  SEC'/ 

148  4'  PLOTTER  Y-AXIS  LENGTH  .  '»F8.3»A4) 

149  300  FORMAT('  CALIBRATE  AND  LABEL  AXES  .  'tA4) 

150  400  FORMAT!'  PLOT  SHORELINE  .  '»A4) 

151  500  FORMAT!'  NUMBER  OF  SOUNDING  DEPTHS  .  '»I3) 

152  510  FORMAT!'  NUMBER  OF  CURRENT  SOUNDINGS .  'U3) 

153  600  FORMAT!'  READ  A  NEW  GRID  .  '»A4) 

154  610  FORMAT!'  GRID  DIMENSIONS  .  !' 

155  1  fI3f'f'fl3f'>'/ 

156  2'  GRID  SPACING  .  'UPE10.3fA8) 

157  700  FORMAT!'  RAY  CONVERSION  ANGLE  .  'fF8.3/ 

158  1'  WATER  DEPTH  CONVERSION  FACTOR .  'UPE10.3/ 

159  2'  CURRENT  SPEED  CONVERSION  FACTOR  .  U1PE10.3/ 

160  3'  SOUNDING  INCREMENT  . . .  'U3) 

161  710  FORMAT!'  WATER  DEPTH  GRID  SPECIFIED  .  NO'/ 

162  1'  WATER  DEPTH  CONSTANT  .  'UPE10.3) 

163  720  FORMAT!'  WATER  DEPTH  GRID  SPECIFIED  .  YES') 
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CH-\PTER  IV  USING  THE  COMPUTER  PROGRAM 


^.1  Preparation  of  Che  Nater  Depth  Grid.  Once  a  coastal  area  is  selected 
for  making  wave  forecasts  a  water  depth  grid  must  be  prepared.  Details 
with  nurnerous  illastratior.s  for  preparing  water  depth  grids  are  given  by 
Wilson  (1966).  It  is  necessary’  to  obtain  charts  of  the  region  of  interest 
containing  sufficiently  detailed  bathymetric  information. 

A  water  depth  grid  is  rectangular  in  shape.  The  value  of  x  varies  between 
0  and  AMM  while  y  varies  from  0  to  ANN.  The  values  of  .-^MM  and  .\NN  are  defined 
by 

AMM  =  MM  -  1  (1-1) 


ANN  =  NN  -  1  (4-2) 


•where  MM  is  the  number  of  water  depth  values  in  a  y-coiumn  and  MN  is  the  number 
of  columns.  The  value  of  MM  must  be  an  integral  multiple  of  16.  If  another 
number  is  preferred  Che  format  statement  in  Che  computer  program  used  to  input 
Che  water  depth  values  must  be  changed.  The  maximum  values  of  MM  and  NN  depend 
upon  the  storage  capacity  of  the  computer.  In  Che  computer  program  presented 
in  this  report  Che  values  of  MM  and  NN  are  assumed  not  to  exceed  120.  If 
Che  grid  requirements  exceed  Che  storage  capacity  of  Che  computer  Che  coastal 
region  of  interest  can  be  divided  into  several  overlapping  grids. 

The  xy-coordinaCe  system  is  right-handed  with  the  x-axis  usually  extending 
seaward.  The  direction  of  the  x-axis  with  respect  to  true  north  is  defined 
as  CNVRSA.  The  use  of  CNVSRA  makes  it  possible  to  define  the  input  and  output 
wave  directions  with  respect  to  true  north. 

The  distance  between  water  depths  in  the  x-  or  y-directions  is  a  grid 
interval  or  grid  unit  and  is  denoted  by  GRID.  This  distance  must  be  small  enough 
for  the  water  depth  grid  Co  describe  adequately  the  bottom  topography.  If  it 
is  desirable  for  rays  Co  start  in  deep  water  the  grid  must  extend  at  least 

several  grid  units  seaward  of  the  deep  water  depth  of  the  largest  wave  period 

of  interest.  In  this  report  deep  water  is  defined  as  any  depth  greater  chan 
0.64  where  is  the  deep  water  wavelength.  This  definition  of  deep 
water  is  chosen  since  the  group  speed  is  nearly  invariant  for  greater  water 
depths  in  the  absence  of  currents. 

To  determine  the  location  of  Che  water  depths  to  be  read  from  a  chart 
lines  can  be  drawn  on  tracing  paper  parallel  to  the  x-  and  y-axes  of  the  grid 

and  separated  a  distance  equal  to  a  grid  unit.  The  tracing  paper  is  placed 

on  the  chart  and  water  depths  are  estimated  for  the  points  defined  by  the 
intersection  of  Che  grid  lines.  The  water  depths  can  be  recorded  in  any 
system  of  units. 

One  of  the  program  options  is  to  have  the  shoreline  drawn  on  a  plot. 


In  order  for  the  location  of  the  shoreline  to  be  computed  it  is  necessary  to 
determine  negative  values  of  water  depths  for  at  least  two  grid  points  land¬ 
ward  of  the  shoreline.  The  negative  values  are  determined  by  drawing  the 
reflection  of  water  depth  contours  on  land  with  respect  to  the  shoreline. 

Zero  water  depths  car.  be  used  to  fill  out  a  column  for  arid  ooints  more  than 
two  grid  units  landward  of  the  shore. 

d.2  Preparation  of  the  Current  Grid.  The  current  grid  is  prepared  in 
a  similar  fashion  to  the  water  depth  grid.  The  current  grid  contains  both 
the  X-  and  y-components  of  the  current.  The  x-component  current  values 
follow  the  y-component  values.  The  component  values  of  the  current  can  be 
either  positive  or  negative,  depending  on  the  nature  of  the  current.  Both 
the  X-  and  y-component  values  in  the  grid  must  have  identical  values  of 
MM  and  NN.  Any  system  of  units  can  be  used  to  record  the  current.  As  in  the 
case  of  water  depths,  the  grid  unit  spacing  is  denoted  by  GRID.  If  there  is 
both  a  water  depth  grid  and  a  current  grid,  the  values  of  MM,  N’N,  and  GRID 
must  be  the  same  for  both  grids.  It  is  not  possible  to  determine  a  shoreline 
for  a  current. 

4.3  Preparing  a  Computer  Run.  The  way  in  which  data  is  prepared  for 
a  computer  run  is  illustrated  on  the  coding  form  in  Ficure  --1) .  Eight 
types  of  computer  cards  are  usea.  The  columns  available  for  each  param.eter 
are  outlined  by  rectangles.  Tae  positions  of  decimal  points  for  real 
numbers  are  indicated.  If  there  is  no  decimal  point  the  number  is  an 
inteser  and  is  placed  in  the  rectangle  as  far  to  the  right  as  possible. 

The  input  param.eters  must  appear  on  each  card  as  shown,  and  the  card  types 
must  be  in  the  order  indicated. 

For  the  first  type  of  computer  card,  MXPLOT  is  the  number  of  runs  for 
a  given  operation  of  the  computer  program.  The  PROJCT  is  a  6-character 
label  of  any  combination  of  letters  and  numbers.  The  label  can  be  used, 
for  example,  to  indicate  a  project  number.  An  alternative  use  is  to  identify 
which  water  depth  grid  is  used  for  the  run.  It  appears  in  both  the  printed 
output  anci  on  the  plot.  DATEl  and  DATE2  are  used  to  date  the  run.  DATEl  can 
be  used  for  the  year  and  the  month  in  the  form  ZZ/YY/.  DATE2  can  be  used 
for  the  day  in  the  form  XX.  The  DIR  is  another  6-character  label  of  any  com¬ 
bination  of  letters  and  numbers.  This  label  appears  only  on  the  plot.  One 
possible  label  is  WAVPAK,  which  can  denote  that  wave  packet  trajectories 
are  presented.  If  the  rays  have  a  common  initial  direction,  DIR  can  be 
used  to  indicate  that  direction. 

The  number  of  rays  for  a  given  run,  NOR,  is  input  on  the  second  type 
of  computer  card.  The  values  of  NPT  and  NSK  determine  the  amount  of  printed 
output.  If  NPT  is  zero  there  is  only  one  line  of  printout  of  the  ray  particulars 
for  a  given  ray  point.  If  NPT  is  not  zero  there  are  two  lines  of  printout 

of  the  ray  particulars  (described  in  the  next  section) .  Printout  occurs  for 

the  first  ray  point,  those  points  which  are  an  integral  multiple  of  NSK, 
and  the  last  point.  The  value  of  HT  is  the  length  of  the  y-axis  of  the  plot 
in  inches  or  centimeters.  If  CIN  is  not  zero  tick  marks  are  placed  on  the 
rays  at  equal  intervals  of  travel  time  given  by  the  value  of  CIN  in  seconds. 

If  no  tick  marks  are  desired  CIN  is  zero. 

The  X-  and  y-axes  of  the  plot  will  be  calibrated  and  labeled  if  NA.X  is 

not  zero.  If  NAX  is  zero  the  plot  borders  are  drawn  but  the  axes  are  not 

calibrated.  The  shoreline  is  drawn  on  the  plot  if  NSH  is  not  zero.  If  the 
shoreline  is  not  desired  NSH  must  be  zero.  In  order  to  have  a  shoreline 
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there  tiust  be  a  vater  depth  grid  (OLA.T)  ,  It  tiust  be  prepared  for  a  shoreline 
as  described  in  Section  (-j.I).  The  nurJ^er  of  sounding  water  depths  for  a 
plot  is  NCO.  There  cannot  be  tiore  than  9  sounding  depths,  and  they  are  input 
on  the  CONTURD  computer  card.  If  NCO  is  zero  there  are  no  sounding  depths; 
in  this  case  the  CONTURO  card  must  be  remo'-ed  from  the  input.  In  the  same 
manner,  NCC  is  the  number  of  current  speed  contours  for  a  plot.  The  contour 
values  are  input  on  the  CONTVRC  card.  Up  to  nine  values  can  be  placed  on 
the  card.  If  no  current  speed  contours  are  desired  the  CONTURC  card  must  not 

apoear  in  the  innat  and  MCC  must  equal  zero.  The  value  of  'UiSKI?  is  the 

amount  by  which  y  is  incremented  in  selecting  columns  for  locating  water 
depth  and  current  speed  contours.  For  example,  if  NNSKIP  is  15  and  NN  is  6^, 
sounding  water  depths  are  located  for  the  2,  17,  32,  d7,  and  62  y-columns . 
Current  speed  contours  are  located  for  the  4,  19,  34,  and  51  y-columns. 

If  a  water  depth  grid,  a  current  grid,  or  both  are  to  be  read  in  the 
input  for  the  computer  run  the  value  of  N'XCMAT  is  zero.  If  NXCMAT  is  not  zero 

the  grids  for  the  previous  run  are  used  again.  This  situation  can  arise  if 

ICvPLOT  is  greater  than  one.  If  English  units  are  to  be  used  in  the  input  and 
output  MOE  is  zero.  If  MOE  is  not  zero  Metric  units  are  used. 

Tne  third  type  of  computer  card  contains  the  input  dimensions  for  the 
water  depth  grid.  description  of  the  quantities  lU-l.  N’N ,  CXVRSA,  and  GRID 
are  described  in  the  previous  sections  of  this  chapter.  The  angle  CXVRSA 
is  given  in  degrees  and  GRID  is  given  in  feet  or  meters.  The  value  of  DCOM 
is  chosen  so  that  the  oroduct  of  DCOM  and  a  water  depth  in  CMAT  yields  a 
value  with  units  of  feet  or  meters. 

A  water  depth  value  in  feet  or  meters  is  read  in  the  input  as  DEP. 

This  value  determines  the  water  depth  for  a  current  grid  if  there  is  no  water 
depth  grid.  If  there  is  a  water  depth  grid  the  value  of  DEP  is  replaced 
by  values  determined  from  the  water  depth  grid.  If  a  water  depth  grid 
is  to  be  read  in  the  input  MD  must  equal  one.  Otherwise  MD  equals  zero. 

The  value  of  CCON  is  chosen  so  chat  the  product  of  CCON  and  a  component 
current  speed  value  in  the  current  grid  produces  a  value  with  units  of 
feet/second  or  meters/second.  A  current  speed  magnitude  can  be  input  as 
Z  and  the  current  direction  as  ZD.  These  values  represent  a  constant  current 
CO  be  used  with  a  water  depth  grid  provided  there  is  no  current  grid.  The 
values  of  Z  and  ZD  are  replaced  with  values  determined  from  a  current  grid 
if  one  exists.  If  a  current  grid  is  to  be  read  in  the  input  NC  must  equal 
one.  If  NC  equals  zero  no  current  grid  is  read. 

The  fourth  type  of  computer  card  is  used  to  input  the  water  depth  grid 
(CMAT) .  The  units  of  CMAT  determine  the  value  of  DCON.  There  are  16  water 
depths  on  each  card.  The  water  depths  are  entered  column  by  column  starting 
with  the  first  column.  There  are  NN  columns.  In  each  column  the  water 
depths  are  entered  starting  with  the  land  values,  if  any,  and  proceeding  sea¬ 
ward.  There  are  MM  values  per  column.  The  format  for  entering  the  water 
depths  does  not  include  numbers  beyond  the  decimal  points.  Near  shore  it 
may  be  desirable  to  record  water  depths  to  the  nearest  tenth  of  a  foot  or 
meter.  On  some  computer  systems  it  is  possible  to  enter  data  routinely  in 
this  form  with  the  indicated  format  for  CMAT  being  overridden.  If  such  a 
capability  is  not  available  it  may  be  desirable  to  alter  the  format  statement 
for  CMAT  in  WAVPAK. 

If  NCO  is  not  zero  the  CONTURD  computer  card  is  used  to  input  the  sound¬ 
ing  water  depths  in  feet  or  meters.  The  number  of  sounding  depths  must  agree 
with  NCO  which  should  not  exceed  9.  If  NCO  is  zero  the  CONTURD  card  must 
be  removed. 
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The  current  grid  contains  both  CURX  and  CURY,  and  it  appears  as  input 
on  the  sixth  type  of  computer  card.  The  CURY  values  precede  the  CURX  values. 

The  numbers  are  placed  on  the  cards  in  the  same  manner  as  described  for  the 
CMA.T  cards  . 

The  seventh  type  or  computer  card  is  CONTUP.C .  anc  it  contains  tne 
current  speed  contour  values  in  feet/second  or  meters /second .  The  number  of 
contour  values  must  be  equivalent  to  MCC.  There  cannot  be  mere  chan  9  values. 
The  COXTURC  card  must  not  appear  in  the  input  if  XCC  is  tern. 

The  eighth  type  of  computer  card  is  used  to  input  the  particulars  for 
each  ray.  There  must  be  as  many  ray  cards  as  declared  in  the  input  for  XOR. 

The  initial  time  step  interval  between  ray  points  in  seconds  is  CELT AT .  The 
initial  wave  period  in  seconds  is  TT,  and  X,  Y  are  the  initial  ray  coordinates. 
The  initial  ray  points  should  be  at  least  two  grid  units  from  a  grid  boundary. 
The  initial  wave  packet  and  wavelet  directions  are  A  and  AV,  respectively. 

The  directions  are  in  degrees  and  are  the  directions  from  which  the  waves  come 
with  respect  to  true  north.  The  initial  wave  height  in  feet  or  meters  is 
HGTZ. 

The  friction  factor  is  CF.  The  value  of  AKRTOL  determines  the  accuracy 
of  the  calculations  of  Che  refraction  coefficient  with  the  exception  of 
near  reflection  points.  As  a  general  rule,  if  accuracy  is  required  to  the 
second  decimal  point  AXRTOL  is  0.01.  If  accuracy  is  desired  to  the  third 
decimal  point  .AKRTOL  is  0.001. 

To  continue  a  ray  beyond  a  re.'leccion  point  .N'ROPT  is  sec  unequal  to 
zero.  If  XROPT  is  zero  a  ray  is  stopped  at  a  reflection  point.  -A  test  is  made 
to  determine  if  a  wave  breaks  if  XTvBRK  is  not  zero.  If  Mv’BRK  is  zero  there 
is  no  test  to  determine  if  a  wave  breaks.  If  Che  ray  is  to  be  numbered  at 
its  terminal  point  NFAN  is  set  unequal  to  zero.  A  group  of  rays  should  be 
numbered  at  their  terminal  points  if  they  have  a  common  origin.  If  XFAX  is 
zero  Che  ray  is  numbered  at  its  initial  point. 

A  sample  of  input  data  for  a  computer  run  with  6  rays  is  shown  in 
Figure  (4-2).  Since  the  water  depth  contours  are  parallel,  only  one  of  Che 
64  columns  of  water  depth  values  is  shown  in  the  rectangle  labeled  CMAT.  The 
current  speed  contours  also  are  parallel.  The  rectangle  labeled  CURY  shows 
the  current  values  for  a  column.  The  CURX  values,  which  also  must  appear 
in  the  input,  are  all  zero.  Computer  outputs  for  these  data  are  presented  in 
Section  (4.6).  Therefore,  if  desired,  these  input  data  can  be  used  to  check 
the  computer  program. 


4.4  The  Printed  Output.  At  the  beginning  of  each  printout  is  a  summary 
(Figure  (4-4))  of  the  input  information  common  to  all  Che  rays.  The  next  thing 
that  appears  in  the  printout  is  the  page  heading.  This  contains  the  PROJCT, 
date,  plot  number,  input  wave  period,  ray  number,  input  time  step,  friction 
factor,  and  AKRTOL.  If  at  the  first  ray  point  this  is  followed  by  a  state¬ 
ment  denoting  whether  English  or  Metric  units  are  used  in  the  output.  The 
column  headings  appear  next  in  Che  output.  Beyond  the  first  point  of  a 
ray  the  page  and  column  headings  occur  after  every  50  lines  of  additional 
printout . 

The  column  headings  identify  the  ray  particulars  which  appear  in  the  output. 
They  contain  the  ray  point  number  MAX,  the  ray  coordinates  X,  Y,  and  the  water 
depth  DEPTH  in  meters  or  feet.  The  current  speed  CUR:SP  is  in  meters/second 
or  feet/second,  and  the  current  direction  CUR:DI  is  in  degrees.  The  Doppler 
shifted  wave  period  appears  in  the  output  as  PERIOD.  The  ray,  wave  packet. 
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and  wavelec  directions  are  denoted,  respectively,  by  RAY,  PACK,  and  WAVE. 

These  are  the  directions  in  degrees  from  which  the  waves  come  with  respect 
to  true  north.  The  geometric  group  speed  is  given  by  G,  and  the  ray  speed 
is  specified  by  GR.  The  units  are  in  meters/second  or  feet/second.  The 
wave  height  is  KGT  in  meters  or  feet.  The  shoaling  coefficient  is  iientified 
by  KS ,  ana  KF  represents  the  friction  coefficient.  The  refraction  coefficien: 
is  defined  by  KR. 

There  is  an  additional  line  of  orintout  if  KPT  is  unequal  to  zero.  This 
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x'y '-coordinate  system  (water  depths)  is  rotated  with  respect  to  the  positive 
x-axis  for  computations  is  given  by  ROTAT:D.  An  estimate  of  how  well  the 
computed  water  bottom  surface  fits  the  actual  water  depths  is  given  by  PCT:D 
(see  page  59).  The  smaller  the  value  the  better  the  fit.  The  angle  in 
degrees  by  which  the  x"y"-coordinace  system  (currents)  is  rotated  with  respect 
to  the  positive  x-axis  for  computations  is  denoted  by  ROTAT:C.  The  quantities 
PCT:CX  and  PCT:CY  are  estimates  of  how  well  the  surface  fit  derived  x-  and 
y-component  current  values,  respectively,  agree  with  the  actual  values 
(see  page  59).  The  speed  of  the  advected  group  front  is  GT,  the  conventional 

g..oup  speed  is  U,  the  phase  speed  is  V,  and  the  speed  of  the  advected  wavelet 

front  is  VT.  These  speeds  have  units  of  meters/second  or  feet/second.  The 
ray  separation  factor  is  specified  by  BETA,  and  the  time  derivative  of  the 

ray  separation  factor  is  given  by  DBET.V/DT.  The  type  of  time  step  breakup, 

should  one  occur,  is  shown  as  BRK  UP.  If  the  breakup  is  to  maintain  accuracy 
in  the  refraction  calculations,  BETA  appears  in  the  output.  If  the  breakup 
is  to  keep  the  change  in  P.A.CK  to  less  than  one  degree  ber.v'een  successive  ray 
points  near  a  reflection  point,  REFLECT  appears  in  the  printout.  The  number 
of  intervals  the  input  time  step  is  divided  into  is  denoted  by  NO.  Finally, 
the  wave  packet  ray  curvature  is  given  as  CURVATURE  in  radians  per  grid  unit. 

The  travel  time  along  the  wave  packet  trajectory  does  not  appear  in  the 
output.  However,  it  can  be  determined  by  subtracting  one  from  MAX  and 
multiplying  the  result  by  the  input  time  step. 

The  ray  particulars  are  printed  out  for  the  first  ray  point,  those  points 
which  are  an  integral  multiple  of  SK,  and  the  last  point.  Printout  occurs 
for  a  reflection  point  should  one  occur.  Note  that  the  number  of  ray  points, 
NO,  which  occur  when  there  is  a  breakup  of  the  input  time  step  interval  is 
not  counted  in  MAX.  There  is  no  printout  for  ray  points  which  occur  within 
a  breakup. 

A  number  of  descriptive  printouts  appear  with  the  ray  particulars 
when  certain  types  of  calculations  occur  or  when  a  ray  terminates.  If  the 
packet  ray  curvature  has  not  converged  after  fifty  iterations  the  ray 
curvatures  of  the  48th  and  50th  iterations  are  compared  to  see  if  they  are 
nearly  the  same.  If  so,  the  ray  curvature  is  assumed  to  have  converged  to 
two  values.  This  would  happen  if  estimates  of  the  new  ray  point  alternate 
between  two  grid  cells.  For  this  situation,  the  average  of  the  ray  curvature 
averages  for  the  49th  and  50th  iterations  is  determined  and  is  used  to  locate 
the  next  ray  point.  When  this  happens  the  following  type  of  printout  appears. 


(1)  MAX=  123,  PACKET  CURVATURE  AVERAGED 


If  NSK  >  1  this  descriptive  printout  occurs  even  if  there  is  no  printed  output 
of  the  ray  particulars. 


When  there  is  a  reflection  one  of  three  types  of  descriptive  printouts 
occurs  (Sections  (2.1),  f  and  g) . 

(2)  MAX^  123,  REFLECTION:  SNELLS  LAW  WITH  PHASE  VELOCITY 

(3)  MAX=  123,  REFLECTION;  PACKET  CURVArjRE  ITERATION  NOT  CONVERGING 

(I)  MAX=  123,  REFLECTION:  NEAR  REFLECTION  POINT 

The  ray  point  where  one  of  these  three  descriptive  printouts  occurs  is  the 
last  ray  point  if  NROPT  =  0. 

When  a  ray  terminates  one  of  the  following  descriptive  printouts  can 
appear  in  the  output. 

(5)  DIMENSION  OF  OUTPUT- ARRAYS  EXCEEDED 

(6)  RAY  RE.A.CHED  SHORE 

(7)  RAY  REACHED  GRID  BOUNDARY 

(8)  P.VCKET  CURVATURE  ITERATION  NOT  CONVERGING 

(9)  CAUSTIC  OR  FOCAL  POINT 

(10)  WAVE  BRE.RKS 

(11)  REFLECTION  HAND-UP 

(12)  BREAKUP  TIME  STEP  LESS  THAN  0.5  SECOND 

Printout  (5)  occurs  if  the  sum  of  the  number  of  ray  points  and  tick  marks  is 
equal  to  or  greater  than  the  array  dimension  MMAX.  Printout  (6)  is  obtained 
if  the  water  depth  becomes  zero  or  negative.  Printout  (7)  results  if  the  ray 
point  is  within  1.5  grid  units  of  a  grid  boundary.  The  conditions  for  a 
reflection  point  are  not  satisfied  if  Printout  (8)  occurs.  Printout  (9) 
is  produced  if  the  ray  separation  factor  becomes  less  than  0.0001.  The  con¬ 
dition  for  Printout  (10)  is  given  in  Section  (2.5).  Printout  (11)  is  obtained 
if  there  are  successive  reflections  at  the  same  ray  point.  Printout  (12) 
can  occur  if  the  calculation  time  step  becomes  too  small  in  either  calculating 
the  ray  path  near  a  reflection  point  (Section  (2.1),  f)  or  in  calculating  the 
ray  separation  factor  (Section  (2.3),  c) . 

4.5  The  Plots.  Each  plot  contains  a  label  consisting  of  PROJCT,  the 
date,  the  scale  factor,  the  time  in  seconds  between  tick  marks  on  a  ray,  if 
any,  the  plot  number,  and  DIR.  If  NAX  /  0  the  a.xes  of  the  plot  are  calibrated 
and  labeled.  If  NSH  ^  0  the  shoreline  is  drawn.  Each  ray  is  numbered.  If 
FAN  =  0  the  number  appears  at  the  initial  ray  point,  and  if  FAN  0  the  ray 

is  numbered  at  its  terminal  point.  If  NCO  ^  0  sounding  water  depth  values  are 
labeled.  A  "D"  appears  after  the  number  to  indicate  a  water  depth.  If  NCC  0 
current  contour  values  are  labeled.  The  number  is  followed  by  a  "C"  to 
signify  a  current  value. 

4.6  Examples  of  Computer  Output.  Several  computer  runs  were  made  using 
the  data  presented  in  Figure  (4-2).  The  six  rays  shown  in  the  figure  were 


determined  for  the  given  water  depth  grid  (OlAT) .  Each  column  of  CMAT  is 
the  same  as  shown  in  Figure  (-4-2)  .  A  plot  of  the  rays  appears  in  Figure  (1-3)  . 
Figure  (4-4)  shows  a  summary  of  the  input  parameters  which  are  common  to  all 
the  rays  for  this  run.  Figures  (4-5)  through  (4-10)  contain  the  printed 
output  for  the  six  rays.  The  examples  illustrate  rays  beginning  both  at  an 
intermediace  water  depth  and  in  deep  water.  Three  different  wave  perieds  are 
considered.  The  second  ray  undergoes  a  reflection  (Section  (2.1),  f  and 
Section  (2.3),  d) .  For  the  last  two  rays  the  friction  factor  is  assumed  to 
be  zero.  Tick  marks  and  sounding  water  depths  are  shown  on  the  plot. 

The  first  and  last  rays  for  the  data  shown  in  Figure  v — 2)  were  computed 
for  the  given  current  grid.  Only  the  values  for  a  column  of  CURY  are  shown. 

The  CURX  values  are  all  zero.  Figure  (4-11)  is  a  plot  of  the  rays,  and  the 
printed  output  is  presented  in  Figures  (4-12)  and  (4-13). 

For  an  additional  comparison,  the  first  and  last  rays  in  Figure  (4-2) 
were  computed  for  the  given  water  depth  and  current  grids.  The  resulting 
plot  is  seen  in  figure  (4-14) ,  and  the  listing  of  the  rays  is  given  in 
Figures  (4-15)  and  (4-16) . 

In  Figure  (4-17)  the  period  of  the  wave  packet  trajectories  is  14.0 
seconds  and  they  begin  in  deep  water.  The  water  depth  contours  are  sinusoidal 
with  an  amplitude  of  5  kilometers  and  a  wavelength  of  20  kilometers.  GRID 
has  a  value  of  312.5  meters. 

This  example  is  quite  interesting  since  there  is  decidedly  more  energy 
in  the  bay  than  at  the  headland.  The  opposite  result  would  be  expected  for 
monochromatic  trajectories.  The  refraction  of  wave  packets  could  explain  why 
there  is  more  erosion  in  bays  than  at  headlands  for  some  coastlines.  Figures 
(4-18)  through  (4-20)  show  the  printed  output  for  rays  number  4,  8,  and  16, 
respectively,  of  Figure  (4-17) .  The  computed  refraction  coefficients  agree 
favorably  with  values  estimated  from  the  plot. 

Figure  (4-21)  shows  a  portion  of  the  Gulf  of  Mexico  off  the  southwestern 
Florida  coast.  A  water  depth  grid  was  prepared  for  this  region  with  GRID  = 
148F6.2  feet  (4.537  km)  and  CNVRSA  =  180°.  A  ray  plot  for  this  region  is 
shown  in  Figure  (4-22) .  The  first  two  rays  start  at  an  intermediate  water 
depth,  whereas  the  remaining  rays  begin  in  deep  water.  Figure  (4-23)  dis¬ 
plays  printed  output  for  the  first  portion  of  ray  number  1.  Since  the 
water  depth  contours  are  not  parallel  there  is  a  variation  in  ROTATrD. 

Ray  number  2  has  a  reflection.  Figure  (4-24)  shows  a  listing  of  the 
ray  particulars  near  the  reflection  point.  The  wave  packet  and  wavelet  angles 
in  the  xy-  and  x 'y '-coordinate  systems  are  defined  by  Equations  (3-1),  (3-2), 
(2-111),  and  (2-112).  At  the  reflection  point  the  angles  in  the  xy-coordinate 
system  are  9,,=  275.22^  and  y  =  2.50^.  In  the  x'y '-coordinate  system 
9'  =  2.21°  and  y'  =  89.49°.  ^ 

Ray  number  12  illustrates  the  importance  of  examining  the  ray  particulars 
in  the  printout.  Figure  (4-26)  shows  the  printed  output  for  this  ray.  A 
message  in  the  output  states  there  is  a  reflection.  However,  a  reflection  is 
not  likely  since  DEPTH,  9',  y',  CURVATURE,  and  G  do  not  exhibit  the  behavior 
characteristic  of  a  reflection.  At  the  ray  point  where  the  reflection  is  in¬ 
dicated  9'  =  115,33°  and  y'  =  117.07°.  This  false  reflection  is  the  result 
of  a  large  change  in  R0TAT:D  between  successive  ray  points.  When  this  occurs 
the  water  depth  grid  is  not  sufficiently  detailed  to  adequately  represent  the 
changing  water  depth  contours. 

Figure  (4-25)  is  the  printout  for  ray  number  6  of  Figure  (4-22) .  This 
is  an  example  of  a  ray  which  reached  shore. 
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WAMPAK  —  WAVE  PACKET  TRAJECTORY  ANALYSIS  PROGRAM  V2.0 
SYSTEM  PARAMTERS  FOR  PLOT  NUMBER  1*. 


PROJECT  NAME  .  PAR  2 

PROJECT  DATE  .  82/09/15 

PLOT  IDENTIFICATION  LABEL  .  WAOPAK 

NUMBER  OF  RUNS  TO  BE  MADE  .  1 


DATA  UNITS  . 

NUMBER  OF  RAYS  TO  BE  RUN  . 

PRINT  INTERMEDIATE  RAY  RESULTS  . 

INTERMEDIATE  RAY  RESULT  INTERVAL  . 

RAY  TICK  MARK  SPACING  . 

PLOTTER  Y-AXIS  LENGTH  . 

CALIBRATE  AND  LABEL  AXES  . 

PLOT  SHORELINE  . 

NUMBER  OF  SOUNDING  DEPTHS  . 

READ  A  NEW  GRID  . 

GRID  DIMENSIONS  . 

GRID  SPACING  . 

RAY  CONVERSION  ANGLE  ♦♦♦♦♦♦♦♦♦*»»»»»»♦»»♦»♦ 

WATER  DEPTH  CONVERSION  FACTOR . 

CURRENT  SPEED  CONVERSION  FACTOR  . 

SOUNDING  INCREMENT  . 

WATER  DEPTH  GRID  SPECIFIED  . 

CURRENT  GRID  SPECIFIED  . 

INITIAL  CURRENT  SPEED  . 

INITIAL  CURRENT  DIRECTION  . 


METRIC 

6 

YES 

10 

300.000  SEC 
6.000  IN 

YES 

YES 

4 

YES 

(  64»  64) 
2.2S6E+02  METERS 
180.000 
3.048E-01 
1  .OOOE-02 
15 
YES 
NO 

O.OOOE+00 

2.700E+02 


SOUNDING  WATER  DEPTHS  (METRIC): 


100.00  200.00 


300.00 


400.00 


Figure  (4-4) ,  SUMMARY  OF  INPUT  PARAMETERS  COMMON  TO  ALL  RAYS 


PROJECT  NO.  PAR  2  f  82/09/15  »  PLOT  NO.  1»  PERIOD=  20.0SEC.»  RAT  NO.  1.  DELTAT=  25.00f  CF=0.100000t  KRT0L=O. 001000 


THE  OUTPUT  IS  IM  METRIC  UNITS.  DEFTHf HGT(METER) .  6fGRfGTfU»VtVT(METER/SEC0ND) 
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Figure  (4-6).  LTSTlNf;  FOR  KAY  NUMBER  2  OF  SAHIM.E  INIMIT  DATA  FOR  WATER  DF.l'Tll  GRID 


THE  OUTPUT  IS  IN  METRIC  UNITS.  DEPTH»HGT(METER) .  G.GR»GT»U»V»VT(METER/SECOND) 


I  •  •  •  •  •  .  .  •  •  • . .  .  *  *  '  ^  .-  • 


Figure  (4-8).  LISTINC  FOR  RAY  NUMliER  4  OF  SAMl'LE  fNl'IlT  DATA  FOR  WAI'I'.R  DKFTH  CiRlD 


PROJECT  NO.  PAR  2  t  82/09/15  .  PLOT  NO.  1>  PERIOD=  17.0SEC..  RAT  NO.  6.  nELTAT=  25.00.  CF=0. 000000,  KRTOL^O. 001000 
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Figure  (A-10).  LISTINC  FOR  KAY  NUMBER  6  OF  SAMPLE  INl’ll'l  DA  )  A  I'OR  WA  I  EK  DEPTH  CRfD 
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Figure  (4-13).  i.rSTINC  FOR  KAY  NUMBER  2  OF  SAMPLE  INPIII  HAT  A  FOR  CURRENT  CRIU 
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PRQJ .  NO .  PDAC  ,  ^  82/09/1 5 
SCL  =  1/310039  ,  CIN  =  0 

PLOT  NO.  1  ,  DIR.  =  WAVPAK 


Figure  (4-14).  PLOT  FOR  SAMPLE  INPUT  DATA  FOR  WATER  DEPTH  AND  CURRENT  GRIDS 
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Figure  (4-15).  LISTING  FOR  KAY  NDMRFR  I  OF  SAMFLK  INIMIf  DATA  FOR  WATFR  DEPTH  AND  CURRENT  GRIDS 


THE  OUTPUT  IS  IN  METRIC  UNITS.  DEPTHiHGT(HETER) .  G.GRiGT.U.V»VT(METER/SECOND) 
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Figure  (4-16).  MSTINC  FOU  KAY  NUMBER  2  OF  SAMl’I.F,  iNrill  DATA  FOR  WA'II’K  DEPTH  AND  CIIRUI’.NI’  CKIDS 
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Figure  (4-17).  PLOT  FOR  SINUSOIDAL  WATER  DEPTH  CONTOLTIS 
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Figure  (A-20) ,  l.iSTlNG  FOR  RAY  NUMBER  16  IN  FIGURE  (A-l/) 


Figure  (4-22).  PLOT  OF  RAYS  OFF  THE  SOUTHWESTERN  FLORIDA  COAST 
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Figure  (^-2  1).  I’AKTIAI.  I.ISTINi;  FOR  RAY  NIIMKF.R  1  IN  FIClIRF.  (A-22) 


153 


CD 

•■4 

m 

m 

CM 

S 

Pv 

0 

m 

m 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

S 

^4 

•o 

m 

m 

S 

S3 

kO 

♦V 

m 

PV 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

0 

Ok 

kO 

m 

m 

S3 

kO 

fv 

s 

^4 

0 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

-* 

•■4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

m 

CM 

•o 

CO 

m 

S 

CM 

. 

. 

. 

0 

0 

0 

0 

0 

0 

0 

o 

CO 

•o 

•o 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

D 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

o> 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

MfMCNCNIf^JCMCMCNCM^ 

oo  oo  oo  oooooooo 
oiODioi4ni  ODio^irvicNio^i^i^iO^irvio^itn 
OUJ^UjrOUjr**>UJ^UJOUJOOUjrvUJO^UJCOLiJ^LiJ^UJCMUJ*>OUJO^ 
o ^rco'O  “BCD com  ooo^  •omo^cD 

oo^o^o^o^r^o^^oo^o^o^or^oo^  ocdocm  »^ocn»o  ^  ^o^ocd  ^ 

•  o  Tv  ^rv  •  Ok  .o  •\n  *00  *0  *0  •f'4  •r^  • 

^  .0  -O  -O  *0  ••«  •fv4 

CMCMm*c 

II  I  I  I  I  I  I  I  I  I  I 


^^CNCMCNCM* 

000  ooooo< 
irvio^i  micoi«rio^irvio^ 
UJOUJ'^UJ  LJ  UJ '^UJCN  UJ  rOL 

CM  00^  o^fM  M  fN.  O'Om  'omcoo  0*5 
roo^mcDCo  fN.mcNtno^orvfv.KO««CMC 
ko  •&>.  •«  -m  •  ro  •m  •< 

•  m  •  ro  -ro  -CN  -CM  •cm  -cm 

III  I  I  I  I  I 


0 

0 

^CD^ 

m 

i^CD4p^  Ok 

Ok 

CM^ 

— • 

Pv 

•o 

PSk^ 

m  •■4U‘) 

^0  ♦•4S 

0 

0 

Pv 

0 

m 

CM 

Pv 

CD 

Ok 

CM 

CM 

Ok 

S 

Pv 

m 

Ok 

m 

m 

s 

CM 

0 

m 

s 

Pv 

♦ 

CD 

Pv 

kO 

m 

m 

S3 

Ok 

^4 

s 

Ok 

PK^ 

0 

CD 

m 

CM 

m 

0 

CM 

Pv 

Ok 

pv 

s 

m 

S3 

0 

0 

0 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

Ok 

0 

0 

0 

m 

S 

Ok 

•c 

s 

s 

Ok 

kO 

S 

m 

0 

S3 

CM 

u. 

0 

0 

0 

0 

0 

0 

0 

m 

s 

m 

CM 

CM 

CM 

CM 

CM 

•■4 

c^ 

►- 

0 

•k 

zo. 

0 

CM 

CM 

kO 

CM 

S3 

S 

CM 

m 

CD 

pK^ 

CM 

S3 

CD 

fN. 

s 

CD 

m 

s 

m 

m 

m 

0 

Ok 

0 

s 

m 

kO 

m 

0 

m 

Ok 

m 

s 

CM 

CM 

CM 

m 

S3 

CM 

S 

m 

s 

Pv 

CM 

0 

0 

CM 

0 

z 

m 

S3 

kO 

kO 

S3 

m 

s 

CM 

0 

•o 

PK^ 

m 

fN. 

CM 

CM 

m 

S 

s 

m 

Pv 

•■4 

CD 

m 

1ZI 

m 

m 

m 

m 

m 

m 

m 

m 

m 

m 

CM 

CM 

♦V 

♦V 

mmmm  mm  m'0'C«ommmm  mmm 
0000  00  00000000000 

CNlCNl»OlCNl^l*Cl^lCNIf^lCOirvlCMl«OlCDirvi^lCDl 
^ujmuj«cujmujoujmuj  ^  ujo^uimui^uitMujCMuj  CMUjmuj^ujCMuj^uj 
•  ^  •*o  *0  *0  •to  *0^  •  •  rv  •rv  •m  •m  •fo  •fo  •to  •fo  •fo 

m^»o^»om»ocM»orvmrv^CMCMOO^^**oo^»co^^rvrvpopvfv.rvCMpv^fv 

mrsimm  mmf^o  m  m ^mmf*imr^»ocMr5CMO^  ^  ^  ^ 


m  m  m  m  m 
00000 
<  I  m  I  ro  1  ro  I  o  I 
4UjrvujrM  uj  oujo  uj  cm 
•  m  •  ro  m  •, 

•rv^rvmrvpvfN.^fv.co  . 


m^CMCM  ^CM*OrOCOCMCMCM  CMCMCM 

01m  m  rv  so  oi«CiOoio^  ro  *0  *0  cm  o  m  o 

oo^^mmcMo^rn«o*o««o^m»vOKfv.in 
•  *  00  •  •  UO  *0^  •  *00  •  CD  •  CD  •  CD  *00  •  CD 

ODO^oooDOD^rvCM'C'O  m  rv  cMo  o  *0  o^f^cD  ^f^OfoCDf^f^rorvro 

CMOCM^ Csj ^ fs.^OK ^ m  ^  CD  OKin^mo^mo^ 

oo^oo  oooooo^^*^  ro  ^  ro  ^  to 


CNPvr^Pv^rv^rvjnrvrvrvi^rviij 

^  ^  ^  ^ 

CM  CM  CM  CM  CM  CM  CM  I 

•o  lo^i^io^im  iCDio^ipv<r 

o  mcMrvro  rorv 

»  OD  •  CD  •  CD  •  CD  •  •  CD  • 

•o  ro  mrom  ro  ro M  CD 

m  o^ mo^m  o^mo^m o^mo^m ^ 


<ot4  O 

o 

O  MD 

• 

0DQD*C^ 
CM  •CM  • 
m  CO 


O  'O 
01^*0^ 
•  OD  •^ 

00  •'O  • 
cMmcMoa 


mQo*^*ooorvCMoommcMfM^CMco 

mrv^o«^4»^*«^*m^*^4^rv'*0'Crv 

•  o  •o  •o  •o^  •CD  •m  •^  •CD  •o^  •f*^  •  "O  •••4  •  rv  *0^  *0 
•^••4^m  moorv  O  OP'i'O  mm*co  ^o^cMco  co^^r^  ^  roforo  ^  ^ 
CM  •CM  •CM  •CM  •  ro  •ro  •«  •ro  •^  ♦m  •m  ••o  •rv  •co  *00  • 


—4  m 

• 

m  ^  m 

•  •  • 

m  ^  m 

^m 

■••m»"»m*^4m'^m^m 

S 

•♦4  ^ 

CM 

•4  ♦v 

CD 

♦V 

s  m 

CM 

•V  pv  ^  s  kO 

— 

kO 

>0 

pKK 

Pv  Ok 

CD 

m  Ok  m  ko 

— 

•-4m  •^mrvfMooo^o* 
mm  mm  mmmmm 


»Ok  •tv  ••«o  •m  *  •m  •m  • 

,  fo^mtMmmmmcMsocMCM4^*m  z 
•  tv  •rv  •rv  •rv  •r<  *00  •^  ^ 


O  ^  ^  v*4  CM-4CM»4CM»-4CM^fM»'<CM4-4CM4i^tM 


moo^-<ooorvCMcommcMfv^CMc» 

morvo  •-4  0  00'  oD^m  —•‘^mcD  «r  •«orv4-4  ^rv^cs  rvo 

•  ^  •m  •m  •^  •o  •<!  •m  •o  •o*  •co  •^■^  •m  •m  •m  •^ 
S3  •'O  •  rv  •CD  *0  •m  •m  •^c  •s*  •cm  •co  •^  •^  •m  •^  • 
cM4MCMm  CM  ^CMm  m  rvmrv  mcomo^  ^o^mo  m  •-4ko^-4  rv^co^-<co 
mm  mm  mmmmm«D  *o«o 


ocMom  o^ocM  o  ••^ocM  o  mocMo^orvo^om  or^o^  ocMorv  o  ^ 
o^O'D  oQoorv  o  mo^-4  o  mo(Mo^o^-«ocMov-4  omocM  ov-400  00 
O  *0  *0  *0  *0  *0  *0  •O  •O  *0  *0  *0  *0  *0  *0  *0  •o  • 
omo^o^O'^o^O'^o  momo^o^  omocM  o^o^-<o^o^o^ 


^  mCM  ^fv  ^4r  -o^ 

rv  Ok  okCvoo  sDmmo«*  o^  mm4-4  m^c  ^ 

•  m  •m  •«  •m  •CM  •CM  •^ 

o  •^  •CM  •m  •m  •'O  •CM  •mis 
fKK¥-4rv^rv¥-4rs.«pi4pv^rv^cD4^0K 
CM  'OCMsCCM'OCM'OCM  CM 'O  CM  kQ  CM  :3 

z 

orvo^-4omocMooomo^o  s- 
o  oo^-40 •■^ocMo  mo^o  ko  o  ^ 
O  •O  •O  *0  •O  •O  •O  ♦OS 
o^-<o^-<o^o^o^o^-<o«^o  ^ 


C4. 

0 

•  m 

•  m  • 

m 

•m 

•  m  -m 

•  m 

•  m 

•  m 

•  m 

•  m 

•  m 

•  m 

•  m 

•  m 

•  m 

•  m  • 

m 

•m  • 

m 

•  m  • 

m 

•  m  • 

m  • 

CD 

CM 

CM  CM 

CM 

CM  CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM  CM 

CM  CM 

CM  CM 

CM  CM 

CM 

•k 

zz 

•■4 

4-^ 

•■4 

v4 

v4 

v4 

4-^ 

v4  v4 

^4  ^4 

4-4  4-4 

UJ 

CM 

CM 

kO 

CM 

•-4  ^ 

s 

CM 

m 

CD 

rv 

CM 

kO 

CD 

Pv, 

s 

CD 

m 

s 

m 

m 

m 

0 

• 

Cu 

S 

m 

kO 

m 

0  m 

•■4 

Ok 

m 

S 

CM 

CM 

CM 

m 

kO 

CM 

S»— 

m 

s 

4P4 

pKk 

CM 

0 

0 

O  *0  •O  •O  •O  •O  •O  *0  •O  •O  •O  •O  •O  •O  •O  •O  *0  •zo  •o  •o  •o  •o  •o  •o  •o*- 
OiOO^  O'OO'^  O'^omo^ocMo^ooo'0o^orvomor^ocMo^-<*^ocMomo^o^omorvo«^o:5 
•  m  •m  •m  •m  •m  •m  •m  •m  •m  •m  •cm  •cm  •^  •^  •••o^  ••  ••  • 

OOOOOOOOOOOOOOOOO  0*0  00  00  00  07“ 

fvfvfv.fv.rvrvrvrvfvrvrvrvrvrvrvrvrv  pvrvrv.pvrvrvpv  pv — 
CM  OCMO  CM  OCMO  CM  OCMO  CM  O  CMO  CM  OCMO  CMO  CMO  CM  OCM  O  CM  OCMO  CM  O  ZCM  OCMOCMOCMOCMOCMOCMOCMOJ 

0000  000000000000  00  OOOOOOO^- 


0000  000000000000  o^  < 

OOOOOOOOOOOOOOOOO  CJO 
OOOOOOOOOOOOOOOOO  UJO 
OOOOOOOOOOOOOOOOO  ^o 
OOOOOOOOOOOOOOOOO  U.O 

•  o  •O  •O  •O  •O  •O  *0  •O  •O  •O  •O  •O  •O  -O  •O  •O  •OUI  •< 
0000  0000  oooooooooooooooooooooooooo^o< 


>000000 
o  o  o  o  o  o  < 

o  o  o  o  o  o  < 

o  o  o  o  o  o  < 

o  o  o  o  o  o  < 

*  •O  *0  •o  •o  •o  •o 
>0000000  0000  o< 


^  m 

rv  m 


CM  OD  OD  m 
CM  ^  O 


>0000  00  00  OC£  • 

<E 

m^'CCDOKO^rvm  ujok 
m'cmcM^cMmm^  z^ 


Ok  CM  m  CM 

CO  m  m  o  os* 


s*ocoo 

rs.oo»o 


kO  0*00  *0  0-^0  Ok  0000  «C  000^0  CMO  ^000  mos-o  ^oo  CM  < 
4-^0  mo  s*  O'CO  rv  ocuOoocMomooo  s'ocoooo^0’^o^^»^< 
^  *v-4  •^  •(%!  ♦CM  •CM  •m  •m  •m  •^  •^  •s*  •z^ 

00  000000000000  00  < 


>  s-opv  O'Oos^ooKOODor 
>oo^ooDorvomomoi 

•  ^  •m  •m  •m  •m  •m  •r 

>000000 


H- 

CD 

0 

z 

z 

UJ 

m 

z 

z 

a 

0 

^  •• 

0 

cn 

H- 

u 

♦ 

z 

0 

►— 

z 

z 

0 

V* 

►— 

♦♦ 

C.J 

3 

X  ►- 

UJ 

0 

-> 

0 

UJ 

xo 

z 

Z 

<z  z 

CM^««o^rv^CMCoocDm^mo  tj^-4 
OKm-^r'KCNirvcM'OCMCOP^OKmm  uJ'O 


pv  CO  m  rv  o 

CO  m  Ok  S’  CM 


kO  •*^SCM 

4r  o-sco 


mcM^-4CM  oPvoKKorvco'OOS'Omr^^-4KOO'^cospvO'0^'O^KO^i^KOc 
s  coscM  s  OKm^mrvmKcmomoKmsmo  CMCMCMs  cmpscmpvcmpvujcm  r 

.  •  •  *•*•♦♦***••  .QC 

•«4CM^-40CMCM^-4»-4^-4^00000  t 


»  kOOkPv  OPsOfM  OCOkOOk  ^  < 
^CMPkkCMSCMSCMSCMSCMkOC 


kO  CM  ••4 

SOS 


m  m 

'C  Ok 


S  fN, 
CO  s 


•o  rv 
CO  CO 


pv  Ok  ^  m 
CO  CO  Ok  Ok 


OKpKKv-4 o ^mm m --^com •■4 OKmmmmr'KmoKpvoco ^•ocMCocMmcMCocM^  •kcm r 
CM  s Ki^Ki^»-4m  •■4C04-i4s CM pvcMr'K (MV-4CMCD cMmmcom'Omm m •omom ^mm  ( 
•  *••*•*•♦•♦•♦•••  *00 

sm  00  srv  ssocom^-4  mKO  pvpv  Kom  t 

pKK«omsmpvrK.QorK^*DCocoGDCocococo  ( 
•-4imioimioimioimioimioimiOimiOimimi  no 
cMmpvocMmrvocMmpvocMmpvco  o 
^^^^(M(M(NCMmmmmm  xs 

<E 


I  CMO  CM  SCMCOCM  4^  CMpvm  CM  f 

cm  com  OKmpvmpvm'ompvf 


pv  pv.  CO  Ok  ko  m 

3  CO  CO  CO  CO  CD  CO 

mioimioimioii 
CM  m  pv  o  CM  m  f 

s  s  s  m  m  m  i 


PROJECT  NO.  GOH  3  .  82/09/15  i  PLOT  NO.  li  PERIOD=  12.0SEC.t  RAY  NO.  6,  nELTAT=  50.00f  CF=0. 005000.  KRT0L=0. 001000 


cN  \n 
o  o 
o  o 


CM 

m 

m 

00 

m 

0 

0 

00 

CM 

CM 

0^ 

0 

m 

'O 

m 

0^ 

'O 

0 

GO 

0 

0 

»• 

0 

0 

0 

0 

0 

0 

0 

GO 

GO 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0^ 

0 

0 

0 

0^ 

0^ 

pv 

m 

pv 

m 

m 

'O 

00 

0^ 

0^ 

0*- 

00 

p^ 

'O 

0 

CM 

m 

0^ 

0^ 

0^ 

0^ 

0" 

O'* 

O'* 

O'* 

0^ 

GO 

m 

0^ 

0^ 

<>- 

0^ 

0 

0^ 

O'* 

O'* 

O'* 

O'* 

0^ 

CO 

^^^M^^^^OOOOOOOOOOOO  o 

oooo 

oooo  oo  oooooo  oo  oooo  oo 
o^o-^o^o^m  imioi'Oicsii^irs.i'Oirs.i^irvioi^irvjo>*io>*i  o 

oujoujOLkJOLijrvujmuj^  ui  oouiu^ui^ui  «rui«rujosujmujmujr<3ijj«-«uj^LiJOLurvuj 
oooo  oooo  ^'omtnrs.^'O  foo  rsiu*^  ^co^o^cofNj&»m>.'OOO^ropo  ro 

ooooooooo^ro^CN^o^uT^^D^o  o^rs.o*‘CM^oo*‘0^o*‘CNo^o>*oir)m*^ 

•  o  *0  *0  *0  -o  •'O  •  •fv  •<%  •po  •p>.  -rj  •CM  •rv  -co  -ro 

^  *0  "O  *0  *0  *0  *0  *0  *0  *0  *0  *0  *0  *0  *0 

oooo 

I  I  I  I  I  I  I  I  i 

oooof^^pOfn^^f^^fM^ODrv^^in'O  ^ 

ooooo^o^oorv'O^wfviCM^^CMpo^ooin  oo 


^  ^  ^  ^  o 


o  ^  ^ 


a. 

UJ 

m  m  m 

m 

0  m  m 

GO  0  'O  0^  Pv 

m  0^  pv 

o^ 

o^ 

00  CCP^ 

pv  pv  pv 

pv 

^  o^ 

Pv  ps^  ^  ^  ^ 

^  'O  'O 

0 

»* 

•'O 

^  0^ 

*  *  • 

• 

•  «  « 

•  •  •  «  • 

•  •  • 

• 

• 

• 

• 

•  X  • 

C£ 

000 

0 

0  ^ 

CM  m  ^  m  m 

•>0  <*0 

m 

CM 

0 

rv  cno 

CQ 

m  m  m 

m 

m  m  m 

m  m  m  m  m 

m  m  m 

m 

m 

m 

m 

0  0 

0 

0 

pv  ^ 

«>0  Pv  fv 

^  'O  'O 

m 

m 

m  0 

0  0 

0 

0 

0  0 

oooooo 

000 

0 

0 

0 

0 

OUJ 

m^m-^  m 

-♦-m 

0  1  m  1  m 

1  00  1  0  1  ^  I  >*  i  p^  1 

m  1  O'.  1  pv  1 

0^  1 

1 

^  1 

0^ 

1 

CD  1  XPv 

rvujrvujrvLkjrvujo^Lu^ujo^ujrvujrvuj'^Ui  ^Ui  o^uj^uj'OLlI'Oujolli^ujo^uj 
•  o  -O  -O  -O  • 'O  -m  •  fvj  •O^  •(N  *0  •CM  •CM  •'O  •CM  ••r  • 'O  -W 

ooooooooo^^'o^ ^CM'O w CM ^'omromrv  'O^'OrO'Opv^^mrs.rvj^ 

wo  mo  mo  mo  m  mmrv  m^mrMmmmrs.  m^mcM  mmmCMmcMmrNKmmmo^ 


-C  UJ  ^  UJ  O  ^  UJ 

•  o^  •m  <x  • 
ocorvinujom 
mo^^^  ^in 


oooo  « 

o  o  o  o  ooimiCMirvioo  co  ^  o^ioi^o  «t  mi^  r^ic^;  «riomi 
ooooo^a^rvmo^in^o^^rvo^o^m^cMO  cc^ 

•  o  *0  •o  -o  •o  •rv  -m  •rv  .fv  •^  •^  •m  •o  *00  •'O  •m  •»%.  •'O  •»  •m  •m 
oooooooo&^o&^coo^m&^&^CDrvcouocD^r^cocDo^cccs.coo^corjcofsirs.'Ou“)C2'«cco  rv.^ 
rv0rx0rv0r*«s0'00'0^'0^'0C0'000'0>*'^0'O‘'0C0'0C0'0C0'*0C0'CPV’«0C0’«0&«.«0rM  -«ocg 
CJOCIO  CMOCMO  CM  OCMO**  CM  O-CMO^  CM CM CMO  CMO^  CM  ^  CM^  CM CM Cm  CM CM  CM  O  CmO 

«^«^^^^00000^00000000^  ^ 

oooo^-»mo^^'<ocDCD^mmcMCM'OU'^«r  o 

00000  CM  ^o^rvcMm'Ou“)io^*^»^^o^  00 

•  o  *0  *0  *0  •lO  •'^  *\n  •o  •CK  *\n  •^  •o^  ••■•  *0  •m  .pv  .m  •'O  *0 

o mo  10  o mom  o  *^omo  o^CMmcMmmcM-^rm^m  ^rv^CD^*-*^m<rmm^ooocorv  cocm 

fx  .fs.  .rs  •cs  •  Cs  •rv  •rs  •cs  •cv 

(M^CM^CM^CM^  CM^CM^CM  OCMO  CMCKCMOO  CMfVtMm  CMWCM^  CMOCM^CN^  CMCO  CMMCCMPn 
'0'C'0^mmmmmmm^^mm« 

oooo^mo*>o*>'OOOOco^mmcMCM'cm^ 
000000000  mcM^>*  mo'oo^o  rvo^CMm  m^o  ^o^m^  mo  ^m  ••••m  ^'ocso 
•m  •m  •m  •m  •^  •m  •^  -m  •m  •cm  •m  •m  •fv  *00  •m  •m  •'O  •»  •rv 


rs«>4r^.^rN«-4rN.^rN  ^rv^rs  opvo  rvo^psoo  rMr^rvm  rvmpv^rvorv^rN^r%oors.^^rv 
CM'OCM^  CM'OCM^  CN  'OCM 'O  CM  ^CM 'O  (Mm  CMm  CMmCMm  (MmCMmCMmCM^CM^CMmCMmCM^ 


omomomomooomo^o^ocoooooooorvocoomo^o^orMomoo 
orsorsorsor^o  ^0^0  0^000  opnogo  o^ocm  o^oooocoocmo^oooooocm 


oooo  oooo  o  oooo  000  00  oooooo  oooo  oooooo  oooooo 


^  ^  o 

rv  o  o 


PN 

^  m 


fv-^^o^'O-^cocMinoo 


PvO'OO^OOOO^O'OO^O^Omo^OmOCDOCDO^O^OPvOP^O^OCMOOO 
r^o^or^ocMo 'C 0^0 ^O'oomo 00000 mo  mocMOooooorvomo^o^o 

00  •p^  •m  •m  -m  •m  •cm  •cm  •cm  •^  •^  •^  •^  •^  •••••• 

oooo  00  00000000000000 


00  ^ 

^  o 


^  m  m  pv 

^  CM  00  ^  ^ 


00  ^ 

*00 


^  pv  m  ^ 
Pv  Pv  CO  ©• 


m  m 

00  m 


omcMm  mcMPvcM  o  ^cMmm  cooocmop^  mcM  ^m^^  cMmmm  oopv^oo  ^mp^ooo^ocMO 
^fv^m  CM  ^cMm  cm  ocMo*>m^mfv  moo  mo»>  ^m^^^mmcMmmm'O'Opv'Oo 


oo^op^  ooop^  0^000  mocMoo*>ocM  ooo'O^^^cM^m  ^m  ^mcMm  CMCMCM'OCM^ 
CM  CM  m  CM  m  CM  ©•  CM  a*  CM  m  c^c  o  CM  CM  CM  m  CM  CO  CM  m  CM  m  CM  m  CM  CM  CM  m  CM  m  CM  m  CM  fM  CM  CM  m 

^O'OCM^^OP^m^m^p^o^O'^^'OP^ooco 
oopvpvm  'O'C'cm'OPvm^coo^p^'OOO'OOo 

«-4imi  oimi  oimio  imtoimi  oimi  oim^oimioi  mi  oimi 
CM  mpv  o  cMm  pvo  CMmpv  o  CMimp^o  cm  mp^ 


NUMBER 


THE  OUTPUT  IS  IN  ENGLISH  UNITS.  PEPTHiHGT(FEET ) .  G.GR.GT.U.U.VTCFEET/SECOND) 


o  o  o 
o  o  o 
o  o  o 
o  o  o 


o  ^ 
o  o 
o  o 
o  o 


CN  ^ 
CD 


OOOO  OO  ^^rpopopo 

oooo  ooooooo 
rv  I  ^  I  ro  I  m  I  >•  I 
OLUOUiOLiJOUJOLUOUif^yj^UJ«rUJ^LUrOLiJ 
ooooooooooooo^rMC^incoroNd^m^r 
OOOOOOOOOOOO^'CC^CDCK'.OO^r^O^^ 
•  O  -O  -O  -O  *0  -O  -CD  •rsj  •CD  -CNI 


o 

O 

• 

• 

« 

^  • 

o 

•  o  • 

o  • 

o  • 

o  • 

o 

o 

cc 

o 

o 

o  o 

o 

o 

CN  »0 

in 

CN 

o 

cnx 

1  1 

1 

1 

1 

m 

^CJ 

o 

o  ^o^  o  ^o^  o^o^rs.^w^<N^rs»^*o^ 

sO 

o 

o 

o 

o  o 

o 

o 

in 

ro 

CN 

CN 

• 

o 

o 

o  o 

o 

o 

Os 

Os 

CO 

sO 

in 

in 

o 

o 

o 

o 

o  o 

o 

o 

Os 

Os 

Os 

Os 

Os 

Os 

II 

z 

• 

«  • 

• 

• 

* 

• 

• 

• 

• 

u. 

o 

o 

o 

o 

o 

o 

u 

>— 

o 

fiu 

» 

XCl. 

X 

o 

X 

m 

in 

in  m 

in 

in 

Os 

in 

Os 

1  Os 

o 

rs 

rs 

rs  rs 

rs 

rs» 

CO 

rs. 

o 

xrs 

• 

• 

• 

•  • 

• 

• 

* 

• 

* 

• 

• 

z  • 

o 

X 

o 

o 

o  o 

o 

o 

o 

ro 

ro 

<r  ro 

\n 

A 

ro 

m 

m  m 

m 

« 

m 

m 

m 

ro 

xro 

C£ 

o 

o 

o  o 

o 

o 

O  fN 

«o 

sO 

sO 

M 

CD 

o 

o 

o  o 

o 

o 

o  o 

o 

o 

o 

z 

m 

U-)-»*4n-r> 

Os  J 

V  1 

in  1 

Os  1 

OOs 

fs.  tjjr^Ld  r>.Lur^LU  r>.Lur^.ujcouj^ujrvujoujr<sUJ 

•  O  *0  *0  *0  *0  *0  *0  •fM 

o  ooooooo  oooooo««<co^o^rocoro^ 
«omo  mo«o  m  oroo  poomcd  po  fsipom  roro 

oooo  oo  orv^^cN 

O  O  O  O  O  O  GOl^irO  COI 

ooooooo^o^o^r^^ 

•  o  *0  *0  *0  *0  -o  -o  •rv  •T'J  ••>C  •  CD 
oooo  oooo  ooooo^oo^o^>coo^^o^cM 

fs.  O  OP^O  r^0rv0*00s30^s30^‘00‘00 
CN  OCJO  CN  OCNO  CN  0(N0  CNOfNO^r^O^CNOCNO 

•  •«  *•••• 

*■* 

OOOOOOOCDfOO^fN 

OOOOOOOOCNfNCN 

•  O  *0  *0  *0  *0  *0  ♦  *0  •fN  ♦  fN  *00 

o  momotnom  otnotn  o  ^oroo  oo«^«-<*e 

fv  •  rs  •  fv  •fv  •  rs.  •r^  •r^  • 

CS4  M  (N  ^  (N  ^<N  «><  (N  ^  (N  «-4  IN  <N  (N  «>«  fNJ  O  (N  C^ 

ooooooocomo^cN 
oooo  OOOO  oooo  O^OPNCNrNfs.^CNJCD 

•  vn  *\n  *ui  *in  •u^  ♦in  •ro  ♦© 

O  *0  *0  *0  *0  *0  *0  *0  ♦O  *0  ♦v^  ♦ 

<N  'OCN'OCN'OfN’^  (N^IN'OfNJ'CCN'OCN'OCN'CCNin 


ujropo 
u.  r'j 

UJPO  I 

cco 

•CO 

org 

^o 

o 


oinomotnom  otnotn  oo*o^o^O'Co^>- 

OlNOfN  0<nO<N  O  fNOIN  OGDO<-«OrvOOOCDi-^ 
O  *0  -O  -O  *0  *0  *0  *0  *0  *0  *0  *0 

oooo  oooo  oooo  000^0  ^omoroo 


2;;;  ca 

oco  rc 

o  •  •fi 

om  — 


« 

pn  •po 

« 

ro  •ro 

* 

ro  •ro 

« 

fo  •ro  • 

ro 

•  ro 

• 

ro.j 

•  ro 

CN 

CN 

CN 

<N 

<N 

CN 

CN 

CN  CN 

CN 

CN 

UJ 

CN 

o 

in  in 

in  in 

in  in 

in 

©s 

rs  rs 

fv  fv 

O 

pv 

o 

fvliJ 

o 

•  o  • 

o 

•o  • 

O 

•o  • 

o 

•o  •o 

• 

o  • 

O 

•  tn 

^  • 

oooo  oooo  oooo  0  00^0 

oro  oro« 

^ro 

• 

po  -ro 

• 

ro  •ro 

• 

ro  ^ro 

ro  *10  • 

ro 

•  ro 

• 

POX 

•  ro 

— 

o 

o 

o 

o 

o 

o 

o 

o  o 

o 

o 

o 

rv 

fv 

rs 

fv 

rs 

<NOCNO<NO<NO<NO<NO  <NO<NO<NO<NO<NOX 
OOOO  OOOOOO  Oh- 

oooo  oo  oooo  ox 

ooooooo 
ooooooox 
0000000<£ 
OOOOOOO.J 
O  *0  *0  *0  *0  *0  *0  *0 

o  oooo  oooooooooocn 


o  o  o  oooo 


^  fv  m  ^  *0  o 

o  o  ^  ^  m  ^ 


OOP^OCDOCNO  ^00*0  ^  O -vO  O  O  O  CNO 
CNOOO^OP^O'OO^O  fNOOOPoomomo* 


in  •in  • 

^  •^  •fO  •CN  •CN 

•  z 

o  o 

OOOO 

oo 

>— 

<N  ^ 

Os  ©s  (vj  ro  ^ 

u 

<N  CD 

ro  Os  *0  ro  Os 

UJ 

o^CNCDin  o^f^in  o  CNCN^  iTi'Orvoo 'OrocD^'Ou. 

CN^CN'O  cN^CN’^rofNrnfNrnmuj  roM 

--^CN-O'^'^^o  OOO^PO 

oooooooo'o^m^o 
ooooooooooo 

^ ^ ^ o^^-^^o^'O^r m  ^ 
^m^CN  ^  <N^^  ^^^m^CN  ^<N  ^ino' 

•  •  ••  ••  ••••  *fi^ 

CNCNrorv  ocNon  'Ocn 

&*CDrsO  ox  CDCDCDrsCN 

^  I  m  I  o  I  in^  o  loimiotioio^i  n 
CN  m  fNioicN  in  rs.  o  in  m 


REFERENCES 


1.  Arthur,  R.S.,  "Refraction  of  Shallow  Water  Waves:  The  Combined  Effect 

of  Currents  and  Underwater  Topography,"  Transactions,  American  Geophysical 
Union,  Volume  31,  Number  4  (1950). 

2.  Arthur,  R.S.,  Munk,  W.H. ,  and  Isaacs,  J.D.,  "The  Direct  Construction  of 
Wave  Rays,"  Transactions,  American  Geophysical  Union,  Volume  33,  Number 
6  (1952). 

3.  Breeding,  J.E.,  Jr.,  "Refraction  of  Gravity  Water  Waves,"  Ph.D.  Thesis, 
Columbia  University,  New  York  City,  1972  and  U.S.  Naval  Coastal  Systems 
Laboratory,  Panama  City,  Florida,  Report  NCSL  124-72  (1972). 

4.  Breeding,  J.E.,  Jr.,  "Velocities  and  Refraction  Laws  of  Wave  Groups: 

A  Verification,"  Journal  of  Geophysical  Research,  Volume  83,  Number 
C6  (1973). 

5.  Breeding,  J.E.,  Jr.,  "Ray  Curvature  and  Refraction  of  Wave  Packets," 
Proceedings  of  the  17th  International  Coastal  Engineering  Conference, 

Volume  1,  pp. 82-100.  .American  Society  of  Civil  Engineers,  New  York  (1981). 

6.  Bretschneider ,  C.L.,  and  Reid,  R.O. ,  "Modification  of  Wave  Height  Due 
to  Bottom  Friction,  Percolation,  and  Refraction,"  Beach  Erosion  Board 
Technical  Memorandum  Number  45  (1954) . 

7.  Dobson,  R.S.,  "Some  Applications  of  a  Digital  Computer  to  Hydraulic 
Engineering  Problems,"  Department  of  Civil  Engineering,  Stanford 
University,  Technical  Report  Number  80  (1967). 

8.  Jonsson,  I.G.,  "Wave  Boundary  Layers  and  Friction,  Factors,"  Proceedings 
of  the  Tenth  Conference  on  Coastal  Engineering,  Volume  1,  pp. 127-143. 

ASCE,  Ann  Arbor,  Michigan  (1966). 

9.  Lamb,  H. ,  Hydrodynamics ,  Sixth  edition,  Dover,  New  York  (1932). 

10.  Milne,  W.E.,  Numerical  Solution  of  Differential  Equations,  John  Wiley  and 
Sons,  Inc.,  New  York  (1953). 

11.  Munk,  W.H. ,  and  Arthur,  R.S.,  ''Wave  Intensity  Along  a  Refracted  Ray," 

in  Gravity  Waves,  National  Bureau  of  Standards  Circular  521,  Washington, 
D.C.  (1952). 

12.  Putnam,  J.A. ,  and  Johnson,  J.W.,  "Dissipation  of  Wave  Energy  by  Bottom 
Friction,"  Transactions,  American  Geophysical  Union,  Volume  30  (1949). 

13.  Ralston,  A.,  "Runge-Kutta  Methods  with  Minimum  Error  Bounds,"  Mathematics 
of  Computation,  Volume  16,  pp. 431-437  (1962). 


Vi;/ 


157 


14.  Romanelli,  M.J.,  "Runge-Kutta  Methods  for  the  Solution  of  Ordinary 
Differential  Equations,"  in  Mathematical  Methods  for  Digital  Computers, 
edited  by  Ralston,  A.,  and  Wilf,  H.S.,  John  Wiley  and  Sons,  Inc.  (1960). 

15.  Salvador!,  M.G.,  and  Baron,  M.L. ,  Numerical  Methods  in  Encineerina. 
Prentice-Hall,  Inc.  (1961). 

16.  Skovgaard,  0.,  Jonsson,  I.G.,  and  Bertelsen,  J.A.,  "Computation  of  Wave 
Heights  Due  to  Refraction  and  Friction,"  Journal  of  the  Waterways,  Harbo 
and  Coastal  Engineering  Division,  ASCE,  Volume  101,  Number  WWl  (1975) . 

17.  Wilson,  W.S.,  "A  Method  for  Calculating  and  Plotting  Surface  Wave  Rays," 
Army  Coastal  Engineering . Research  Center,  Washington,  D.C.,  Technical 
Memorandum  Number  17  (1966). 

18.  Wylie,  C.R. ,  Jr.,  Advanced  Engineering  Mathematics ,  McGraw-Hill,  New 
York  (1951)  . 


V. 


PRINCIPAL  NOTATION 


The  principal  srabois  are  defined.  In  defining  derivatives  the  letters 
in  parentheses  are  used  to  complete  the  symbols.  The  underlined  letters  denot 
the  variables  to  which  the  derivatives  are  applied.  The  input  and  output  para 
meters  used  in  the  computer  program  are  defined  on  pages  56-60. 


A  The  program  symbol  for  6.  In  the  input  and  output  A  is  the 

direction  in  degrees  from  which  the  wave  packet  comes,  with 
respect  to  true  north.  Internally  in  the  program  A  is  the 
direction  in  radians  with  which  the  wave  packet  moves  with 
respect  to  the  positive  x-axis . 


AA 

.A.AA,  AA.AV 

ABAR 

.AGR 

AK(i) 

AKFC 

AKR 

AKS 

AL(i) 

ALFA 
AMM,  ANN 

ARAY 

AV 

AVP 

AX,  AY 


The  wave  packet  direction  at  the  new  ray  point. 

The  average  of  the  values  at  the  new  and  previous  ray  points, 
respectively,  of  the  wave  packet  and  wavelet  directions. 


The 

new 

average 
points . 

of  Che 

wave  packet  directions  at 

the  present  and 

The 

program 

symbol 

for 

g- 

The 

program 

symbol 

for 

K .  where  i  =  1,  2 ,  . . 
1 

9. 

The 

program 

symbol 

for 

The 

program 

symbol 

for 

The 

program 

symbol 

for 

The 

program 

symbol 

for 

L^  where  i  =  1,  2 , . . . 

,9. 

The 

program 

symbol 

for 

a. 

The 

maximum 

values 

of  X  and  y,  respectively. 

for  a  water 

depth  grid. 

The  program  symbol  for  0.  The  directions  of  .ARAY  are  defined 
following  the  same  conventions  used  in  the  definitions  of  A. 

The  program  symbol  for  v.  The  directions  of  .AV  are  defined 
following  the  same  conventions  used  in  the  definitions  of  A. 

The  program  symbol  for  y'  or  y". 

The  arrays  used  to  store  the  locations  of  contour  values,  ray 
points,  and  tick  marks. 


BDZ 


The  program  symbol  for  dS/dt. 

3DZ5  The  fifth  order  Runge-Kutta  solution  of  di/dt. 

3Z  The  program  symbol  for  i. 

3ZT0L  The  limiting  value  for  EBZ.  and  EBDZ  in  the  Runge-Kucra 

calculations  of  c  and  dc/dt.  If  EBZ  or  EBDZ  exceeds  or  is 
equal  to  BZTOL  the  time  step  interval  is  halved. 

BZ5  The  fifth  order  Runge-Kutta  solution  of  3. 

C  An  array  of  12  water  depths  from  CMAT  used  to  fit  a  quadratic 

surface  in  the  vicinity  of  the  ray  point. 

CALFA  The  program  symbol  for 

CDAD_  (X,Y)  The  program  symbols  for  derivatives  of  o  in  the  x"y"- 

coordinate  system  (currents) . 

CDAVD  (a,Y)  The  program  symbols  for  derivatives  of  ■-  in  Che  .x"y"- 

coordinate  system  (currents). 

CDGD _  (.■<,Y,:\:<,XY,YY)  The  program  symbols  for  derivatives  of  G  in  Che 

x"y"-coordinate  system  (currents) . 

CDPHD  (X,Y)  The  program  symbols  for  derivatives  of  i  in  the  x"y"“ 

coordinate  system  (currents) . 

CDUp_  _  (X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  U  in  the 

x"y"-coordinate  system  (currents) . 

CDVp_  _  (X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  v  in  the 

x"y"~coordinate  system  (currents) . 

CF  The  program  symbol  for  c^. 

GIN  If  GIN  is  not  zero,  its  value  is  the  travel  time  between 

tick  marks  along  a  ray.  In  the  input  GIN  is  in  seconds,  but 
for  the  calculations  GIN  is  converted  to  hours.  If  GIN  is 
zero  there  are  no  tick  marks  on  a  ray . 

GNAT  The  water  depth  grid  in  a  two  dimensional  array. 

GNVRSA  The  direction  of  the  positive  x-axis  of  Che  water  depth  and 

current  grids  with  respect  to  true  north.  The  use  of  this 
conversion  angle  permits  the  wave  and  current  directions  to  be 
defined  with  respect  to  true  north  in  the  input  and  output. 

GONTURG  An  array  containing  the  current  profile  values  in  feet/second 

or  meters/second.  There  can  be  as  many  as  9  values. 


CONTURD 


An  array  containing  the  sounding  water  depths  in  feet  or 
meters.  There  can  be  as  many  as  9  values. 


CURR  The  current  magnitude  in  a  ttr?o  dimensional  array. 

CURX  The  x-component  current  in  a  two  dimensional  array. 

CURY  The  y-component  current  in  a  two  dimensional  array. 

CX  An  array  of  12  x-component  current  values  from  CURX  used  to 

fit  a  quadratic  surface  in  the  vicinity  of  the  ray  point. 

CY  An  array  of  12  y-component  current  values  from  CURY  used  to 

fit  a  quadratic  surface  in  Che  vicinity  of  the  ray  point. 

c^  The  friction  factor. 

D  The  program  symbol  for  D^. 

OADX  The  program  symibol  for  the  derivative  of  t  in  the  x'v'- 

coordinate  system  (water  depths) , 

D.-^VDX  The  program  symbol  for  the  derivative  of  in  the 

coordinate  system  (water  depths) . 

DELA  The  change  in  the  wave  packet  direction  from  the  present 

to  the  new  ray  point. 

DELAV  The  change  in  the  wavelet  direction  from  the  present  to  the 

new  ray  point. 

DELX,  DELY  The  change  in  the  values  from  the  present  to  the  new  ray 

points  of  the  x  and  y  coordinates,  respectively. 

DEP  The  program  symbol  for  h, 

DGD_  _  (X,XX,XY,YY)  The  program  S3nnbols  for  derivatives  of  G  in  the 

X 'y '-coordinate  system  (water  depths). 

DHD_  _  (.X,XX,XY,YY)  The  program  symbols  for  derivatives  of  h  in  the 

x'y '-coordinate  system  (water  depths). 

The  incremental  distance  in  grid  units  between  ray  points. 

DPHIDX  The  program  symbol  for  the  derivative  of  p  in  the  x'y'- 

coordinate  system  (water  depths)  . 

DUD  The  ratio  of  the  phase  speed  at  the  present  ray  point  to 

the  value  at  the  previous  ray  point. 


DTO_ 

DVD_ 

DY 

D^D 

DZD_ 

E 

EBDZ 

E3Z 

EM 

EX 

EY 

E 

A 

\ 

A 

e 

m 

FK 


(X,XX,XY,YY)  The  program  symbols  for  derivatives  of  U  in  the 
x'y '-coordinate  system  (water  depths). 

(.I'.jliXjTi  ,'iY)  The  program  s^'mbols  for  derivatives  of  v  in  the 
x'y '-coordinate  system  (water  depths). 

The  number  of  grid  units  per  inch  or  centimenter  for  a 
particular  plot. 

(X,Y,XX,XY,YY)  The  program  s}nnbols  for  derivatives  of  £  in 
the  x"y"-coordinate  system  (currents). 

(X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  u  in 
the  x"y"-coordinate  system  (currents) 

An  array  of  6  coefficients  of  the  quadratic  surface  equation 
which  is  fitted  to  the  12  water  depths  in  the  array  C. 

The  program  s’-mibol  for 

The  program  symbol  for  £.. 

A  two  dimensional  array  of  numbers  used  in  computing  the 
array  E. 

An  array  of  6  coefficients  of  the  quadratic  surface  equation 
which  is  fitted  to  the  12  x-component  current  values  in  the 
array  CX. 

An  array  of  6  coefficients  of  the  quadratic  surface  equation 
which  is  fitted  to  the  12  y-component  current  values  in  the 
array  CY. 

The  wave  energy  per  unit  area. 

A  unit  vector  in  the  direction  of  Y. 

A  unit  vector  in  the  direction  of  0. 

The  program  symbol  for  <  .  It  is  measureed  in  radians/grid 
unit . 


FKAC  The  program  symbol  for  the  packet  ray  curvature  considering 

only  variations  due  to  currents. 

FKAD  The  program  symbol  for  the  packet  ray  curvature  considering 

only  variations  due  to  water  depths. 

FKBAR  The  average  of  the  packet  ray  curvature  at  the  present  and 

new  ray  points. 

The  value  of  in  radians/grid  unit  at  the  new  ray  point. 

Cj 


FKK 


The  average  rate  of  energy  transmission  of  the  waves. 

The  freauencv  of  the  wave  (1/T)  relative  to  the  current. 


The  geometric  group  speed. 

The  program  s;/mboi  for  G^. 

The  ray  speed. 

The  number  of  feet  or  meters  per  grid  unit  for  a  particular 
water  depth  grid. 


GTZERO 


GZERO 


EDBDT 


The  program  symbol  for  G^. 

The  speed  of  Che  advected  group  front  in  a  current. 

The  value  of  G.^,  at  Che  first  ray  point. 

The  value  of  G  at  the  first  ray  point. 

The  acceleration  due  to  gravity. 

The  wave  height. 

The  program  symbol  for  H. 

The  initial  value  of  H. 

(X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  h 
in  the  xy-coordinate  system  (water  depths) . 

The  water  depth. 

Is  set  equal  to  zero  in  HEIGHT  at  the  beginning  of  a  ray. 

If  a  reflected  ray  is  continued  beyond  a  reflection  point, 
IBDZ  is  set  equal  to  one  in  HEIGHT  when  the  calculations 
of  3  and  dS/dt  are  to  resume.  As  a  result,  d6/dt  is  deter¬ 
mined  analytically  to  restart  the  Runge  Kutta  calculations. 

Is  set  equal  to  zero  in  SURFCE  at  the  beginning  of  a  ray. 

When  a  ray  enters  a  current  IDBDT  is  set  equal  to  one  in 
SURFCE.  As  a  result,  the  initial  value  of  d6/dt  for  currents 
is  determined  analytically.  This  value  is  used  in  the 
Runge  Kutta  calculations  of  3  and  dS/dt. 

When  IFLG  is  zero  a  check  is  made  in  HEIGHT  to  determine 
if  there  should  be  a  breakup  of  the  time  step  interval  in 
order  to  maintain  the  desired  accuracy  in  the  calculations 
of  either  3  or  the  ray  path.  If  there  is  a  division  of 
the  time  step  interval,  IFLG  is  set  equal  to  one  once  the 
time  step  interval  is  sufficiently  reduced.  When  IFLG 


IHGT 


INUM 

lONCE 

IWAVIT 


KCIN 

K. 

1 

KMAX 

■Si 

KREST 

k 

LI 

e 


equals  one  further  checks  for  a  breakup  of  the  time  step 
interval  are  not  made  at  new  ray  points  until  the  breakup 
ends  and  calculations  are  resumed  with  the  initial  time  step. 

If  IHGT  is  set  equal  to  zero  the  wavelet  direction  is  de¬ 
termined  in  SURFCE.  If  IHGT  is  set  equal  to  one  the  values 
of  p  and  q  are  determined  in  SURECE. 

An  index  to  count  the  ray  points  within  the  broken  interval 
when  there  is  a  division  of  the  initial  time  step  interval. 

Is  set  equal  to  one  in  SURFCE  at  the  beginning  of  a  ray. 
lONCE  is  set  equal  to  zero  after  the  initial  value  of  d6/dt 
for  currents  is  determined  analytically  in  SURFCE.  As  a 
result,  this  calculation  in  not  repeated  for  the  ray. 

The  flag  IWAVIT  is  used  when  both  water  depth  and  current 
grids  exist.  Its  purpose  is  to  require  accuracy  in  the  cal¬ 
culation  of  the  wavelet  direction  when  iterating  to  a  new 
ray  point.  At  the  beginning  of  the  iteration  process 
IWAVIT  is  set  equal  to  zero.  WTien  successive  wavelet  estimates 
differ  by  less  than  a  predetermined  amount,  IWAVIT  is  set 
equal  to  one.  Iterations  stop  when  both  IWAVIT  equals  one 
and  the  ray  cuim/ature  calculations  have  converged. 

The  number  of  tick  marks  along  a  ray  which  do  not  coincide 
with  ray  points. 

The  friction  coefficient. 

Expressions  used  in  the  Runge-Kutta  calculations  of  8  and 
d8/dt  where  i  =  1,  2,  ...,  9. 

The  same  as  MAX  except  in  DRAW  where  it  is  the  sum  of  MAX 
and  KCIN . 

The  refraction  coefficient. 

The  number  of  tick  marks  along  a  ray. 

The  shoaling  coefficient. 

The  wave  number  2't/X. 

The  number  of  lines  of  printout  between  page  and  column 
headings . 

Expressions  used  in  the  Runge-Kutta  calculations  of  3  and 
dB/dt  where  i  =  1,  2,  ...»  9. 

The  perpendiculae  distance  between  rays. 
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MAXQ 

MIT 


MMAX 

M 

NBRKUP 

NDP 

NFK 

NFLAGR 

NFLECT 

NFRACT 


NGO 


NOLINE 


An  index  to  number  points  along  a  ray  at  time  intervals 
equal  to  the  initial  time  step. 

If  MIT  is  1  the  wave  packet  curvature  approximations  in  MOVE 
converge  to  one  value.  If  MIT  is  2  the  curvature  approxi¬ 
mations  converge  to  two  values.  If  the  cur/ature  approxi¬ 
mations  do  not  converge  and  there  is  no  reflection  MIT  is  3. 
If  MIT  is  4  a  caustic  or  focal  point  is  computed  in  HEIGHT. 
MIT  is  5  if  it  is  determined  in  HEIGHT  that  the  wave  breaks. 
%Tien  there  is  a  reflection  but  the  ray  is  not  continued 
MIT  is  6.  If  MIT  is  7  more  than  one  reflecton  from  the 
same  point  is  determined  in  MOVE.  If  MIT  is  8  the  breakup 
time  step  determined  in  HEIGHT  is  less  than  0.5  seconds. 

The  dimension  of  the  AX  and  AY  arrays. 

The  ray  number. 

Is  zero  except  during  a  breakup  of  the  time  step  interval 
when  the  value  is  one.  After  returning  to  MOVE  from  HEIGHT, 
the  value  of  NBRKUP  determines  where  the  program  resumes. 

The  water  depth  is  determined  in  SURFCE.  If  the  value  is 
greater  than  0,  NDP  is  1  (initialized  in  RAYlO  .  If  the  water 
depth  equals  or  is  less  than  0,  NDP  is  2. 

The  value  of  NEK  is  determined  in  SURFCE.  If  the  ratio  of 
the  water  depth  to  the  deep  water  wavelength  is  greater  than 
0.64,  NFK  is  1.  Otherwise,  NFK  is  2. 

Is  set  equal  to  zero  in  WAVPAK  at  the  beginning  of  a  ray. 

The  value  is  changed  to  one  in  MOVE  if  there  is  a  reflection 
and  the  ray  is  continued.  If  NFLAGR  is  one,  in  HEIGHT  the 
value  of  NROPT  is  set  equal  to  zero. 

In  WAVPAK,  NFLECT  is  set  equal  to  zero  at  the  beginning  of 

a  ray.  In  HEIGHT,  NFLECT  is  set  equal  to  one  for  those  ray 

points  where  the  conditions  for  being  close  to  a  reflection 
point  are  met. 

In  WAVPAK,  NFRACT  is  set  equal  to  zero  at  the  beginning  of 

a  ray.  In  HEIGHT,  NFRACT  is  set  equal  to  one  for  those 

ray  points  where  there  is  a  breakup  of  the  time  step  interval 

due  to  insufficient  accuracy  in  the  Runge-Kutta  calculations 
of  3  and  d3/dt. 

The  value  of  NGO  is  determined  in  MOVE.  If  a  ray  point 
lies  within  one  and  one  half  grid  units  of  a  grid  boundary 
NGO  is  2.  Otherwise,  NGO  is  1,  (Initialized  in  RAYN.) 

An  index  used  to  determine  when  to  write  page  and  column 
headings  depending  upon  the  number  of  lines  of  printout. 


NOREF 

NPLOT 

N’REF 

NRFLBU 

NRFRBU 

NROPT 

NTOREF 

NU>fr 

n 

OMEGA 
OMEG_  _ 

PATI 

PHI 


An  index  to  count  the  number  of  reflections  at  a  ray  point. 

The  plot  number. 

The  value  of  NREF  is  determined  in  MOVE  and  it  denotes  the  kind 
of  reflection.  Vnen  there  is  reflection  due  to  Snell's  law 
with  phase  velocity  NREF  is  1.  ivTien  reflection  occurs  because 
the  packet  curvature  iteration  is  not  converging  N'REF  is  2. 

If  there  is  reflection  because  the  ray  point  is  too  near 
a  reflection  point  NREF  is  3. 

In  WAVPAK,  NRFLBU  is  set  equal  to  zero  at  the  beginning  of 

a  ray.  In  HEIGHT,  NRFLBU  is  set  equal  to  one  for  those  ray 

points  where  the  conditions  for  being  close  to  a  reflection 
point  are  met.  This  causes  the  statement  "REFLECT"  to  appear 
in  the  output. 

In  WAVPAK,  NRFRBU  is  set  equal  to  zero  at  the  beginning  of 

a  ray.  In  HEIGHT,  NRFRBU  is  set  equal  to  one  for  chose  ray 

points  where  there  is  a  breakup  of  the  time  step  interval 
due  to  insufficient  accuracy  in  the  Runce-Kutta  calculations 
of  0  and  dc/dt.  This  causes  the  statement  "B£I.\"  to  appear 
in  Che  output. 

The  initial  value  of  NROPT  is  determined  in  the  input  data. 

If  NROPT  is  zero  a  ray  is  not  continued  beyond  a  reflection 
point.  If  NROPT  is  not  zero  a  ray  is  continued  beyond  a  re¬ 
flection  point.  After  a  reflection  NROPT  is  set  equal  to 
zero  so  that  a  ray  is  not  continued  beyond  a  second  reflection 
point  if  one  should  exist. 

If  there  is  total  reflection  due  to  the  wavelets  NTOREF  is 
set  equal  to  one.  Otherwise,  NTOREF  is  set  equal  to  zero. 

The  reflection  test  is  made  in  SURFCE. 

The  number  of  divisions  when  there  is  a  breakup  of  the  initial 
time  step  interval. 

An  index  to  number  ray  points. 

The  program  symbol  for  oj. 

(X,Y,XX,XY ,YY)  The  program  symbols  for  derivatives  of  u  in  the 
x"y"-coordinate  system  (currents) . 

A  program  symbol  for  p.  The  value  of  p  at  the  point  prior 
to  the  new  ray  point. 


POT 


The  program  symbol  for  1>. 

A  program  symbol  for  p.  The  value  of  p  at  the  new  ray  point. 


POTC 


The  program  symbol  for  p  at  the  new  ray  point  considering 
only  variations  due  to  currents. 


POTD 


?REV 

PREVT 

P(i) 


P 

QATI 

QOT 

QOTC 

QOTD 

Q(i) 


q 

RT 


SCL 

S 

G 

s 

ray 


The  program  symbol  for  p  at  the  new  ray  point  consiaering 
only  variations  due  to  water  depths. 

The  value  of  v  at  the  previous  ray  point. 

The  value  of  v.^,  at  the  previous  ray  point. 

Program  symbols  for  p.  The  values  of  p  at  points  inter¬ 
mediate  to  the  new  and  previous  ray  points  where  i  =  1, 

2 ,  .  .  .  ,  5 . 

A  coeffiecient  of  the  ray  separation  equation. 

A  program  symbol  for  q.  The  value  of  q  at  the  point  prior 
to  the  new  ray  point. 

A  program  symbol  i.or  q.  The  value  of  q  at  the  new  ray  point. 

The  program  s^/mbol  for  q  at  the  new  ray  point  considerina 
only  variations  due  to  currents. 

The  program  symbol  for  q  at  the  new  ray  point  considering 
only  variations  due  to  water  depths. 

Program  symbols  for  q.  The  values  of  q  at  points  inter¬ 
mediate  to  the  new  and  previous  ray  points  where  i  =  1, 

2  ,  .  . .  ,  5 . 

A  coefficient  of  the  ray  separation  equation. 

The  length  of  the  x-axis  in  inches  or  centimeters  for  a  given 
plot . 

A  two  dimensional  array  of  numbers  used  in  computing  the 
arrays  E,  EX,  and  EY. 

The  scale  of  the  plot. 

The  arc  length  of  a  wave  packet  trajectory. 

The  arc  length  of  a  ray. 

The  arc  length  of  a  monochromatic  ray. 

The  wave  period  relative  to  the  current. 


TIMEQ 


The  travel  time  along  a  ray. 


TT 

-p-T'rr* 

i.  L  L 

t 

L' 

UK 

UK _ 

UM _ 

u 

u,. 

SN. 

^rr. 

V 
VT 

V 
Vj 

WAVNO 

WAVNO 

WL 

X 

XX 

X 

x' 

x" 

V 


The  program  symbol  tor  the  input  wave  period. 

The  proaram  symbol  for  the  Doppler  shifted  wave  period. 
Time . 

The  conventional  group  speed  dw/dk. 

The  program  symbol  for 

(X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  u, 
in  the  x"y"“Coordinate  system  (currents) . 

(X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  u 
in  the  x"y"-coordinate  system  (currents) . 

The  speed  of  Che  current. 

The  component  of  the  current  in  the  direction  of  ,  i.e., 
perpendicular  to  the  wavelet  front. 

The  component  of  the  current  in  tae  direction  of  i.e., 
perpendicular  to  the  group  front. 

The  program  symbol  for  v. 

The  program  symbol  for  v.^. 

The  phase  speed  of  a  monochromatic  wave. 

The  speed  of  the  advected  wavelet  front  in  a  current. 

The  program  symbol  for  k. 

(X,Y)  The  program  symbols  for  derivatives  of  k  in  the  x''y 
coordinate  syste-m  (currents)  . 

The  program  symbol  for  the  deep  water  value  of  \. 

The  program  symbol  for  x. 

The  program  symbol  for  x  at  the  rew  ray  point. 

A  Cartesian  coordinate  of  the  water  depth  grid. 

A  Cartesian  coordinate  in  a  system  chosen  such  that  rh/ry 

A  Cartesian  coordinate  in  a  system  chosen  such  that  3u/3y 

The  program  symbol  for  y. 
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YW 

YY 

y 

y’ 

y" 

Z 

ZD 

ZD_ 

ZT_ 

ZX 

zx_ 

ZY 

ZY_ 

"/ 

2 

C 

3 

Y 

At 

C 

-s 


A  one  dimensional  array  used  in  computing  the  arrays  E, 

EX,  and  EY. 

The  program  symbol  for  y  at  the  new  ray  point. 

A  Cartesian  coordinate  of  the  water  depth  grid. 

A  Cartesian  coordinate  in  a  system  chosen  such  that  3h/3y'  =  0 

A  Cartesian  coordinate  in  a  system  chosen  such  that  9u/3y"  =  0 

The  program  symbol  for  u. 

The  program  symbol  for  £. 

(X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  £  in 
the  xy-coordinate  system. 

(X,Y,XX,.'CY,YY)  The  prosram  s\mibols  for  derivatives  of  u  in 
in  the  xy-coordinate  system. 

The  program  sraboi  for  the  x-com?cnent  of  the  current  in  the 
xy-coordinata  system. 

(X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  ZX 
in  the  xy-coordinate  system. 

The  program  symbol  for  the  y-component  of  the  current  in  the 
xy-coordinate  system. 

(X,Y,XX,XY,YY)  The  program  symbols  for  derivatives  of  ZY 
in  the  xy-coordinate  system. 

The  angle  the  x'-axis  is  rotated  with  respect  to  the 
X-axis  such  that  3h/3y'  =  0. 

The  angle  the  x"-axis  is  rotated  with  respect  to  the 
x-axis  such  that  3u/3y"  =  0. 

The  ray  separation  factor. 

The  wavelet  direction  defined  with  respect  to  the  positive 
x-axis . 

The  time  step  interval  between  ray  points. 

The  current  direction  with  respect  to  the  positive  x-axis. 


The  difference  between  the  fourth  and  fifth  order  Runge- 
Kutta  solutions  of  3. 
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The  difference  between  the  fourth  and  fifth  order  Runge- 
Kutta  solutions  of  d3/dt. 

The  wave  packet  direction  defined  with  respect  to  the 
positive  x-a:£is . 

The  ray  cuf/ature  of  the  wave  packet. 

The  ray  curvature  of  a  monochromatic  wave. 

The  wavelength. 

3.1415927 

The  ray  direction  defined  with  respect  to  the  positive 
x-axis . 

The  tangential  stress  per  unit  area  at  the  bottom. 

The  angle  ('r-';). 

The  radian  frequency  (2“f)  of  the  wave  relative  to  the  current. 
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!9  i^EY  •vO'^CS  'CrnJjnui*  on  r«v*r»*  ♦/o#  if  «io  -tJmnUty  Py  nuTiOT) 

Refraction  Nave  Height  Geometric  Group  Velocity 

Ray  Curvature  Shoaling  Coefficient  Nater  Depth 

Wave.  Packet  Refraction  Coefficient  Current 

Total  Reflection  Friction  Coefficient 


2Z  AeSTff  ACT  fCcnitnu^  on  tld9  if  n*ea#»«fr  •nd  id«nri/y  br  btocm  number) 

Tnd  theory  and  numerical  methods  are  presented  for  determining  the  paths 
and  wave  heights  of  gravity  water  wave  packets.  Both  variable  water  depths 
and  currents  are  considered.  The  wave  height  is  computed  accounting  for  the 
effects  of  shoaling,  refraction,  and  energy  dissipation.  A  ray  curvatuxe 
•i>;pression  is  used  to  determine  the  wave  packet  trajectories  where  the  speed 
j  .U-.  Ac  aA\>an  Kv  G  a  (fdo/dkl  COS  C.  Tn 6  svnbol  .w  denotes  the  aneular 


I  frequency,  k  is  the  vave  number,  and  z  is  the  difference  between  the  directi 
I  of  the  vave  packet  and  the  direction  of  the  vavelets  vithin  the  packet.  The 
ivavelet  direction  is  determined  at  each  ooint  of  the  vave  racket  tra"' ec tor^.' . 

I  .  .  w  . 

The  vave  packet  and  ray  directions  differ  when  there  are  currents.  The  cal¬ 
culations  for  variations  in  water  depth  are  greatly  simplified  by  choosing 
a  coordinate  system  at  each  ray  point  in  which  one  asis  _s  aligned  parallel 
with  the  direction  of  the  sradient  of  the  water  deoch.  In  a  similar  fashion 


tne  caj.cu*attons  tnvo.:.ving  variations  in  current  are  simpnriec  oy  c.noosing 
coordinate  system  at  each  ray  point  in  which  an  a:iis  is  taken  parallel  with 
direction  of  the  gradient  of  the  current  magnitude.  Ec-iample  printr'cts  and  p 
are  presented  to  illustrate  the  vave  prediction  method. 
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The  incremental  distance  in  grid  units  between  ray  points 


DPHIDX 


The  program  symbol  for  the  derivative  of  p  in  the  x'y'- 
coordinate  system  (water  depths) . 


DUD 


The  ratio  of  the  phase  speed  at  the  present  ray  point  to 
the  value  at  the  previous  ray  point. 


The  program  symbol  for  the  packet  ray  curvature  considering 
only  variations  due  to  currents. 

The  program  symbol  for  the  packet  ray  curvature  considering 
only  variations  due  to  water  depths. 

The  average  of  the  packet  ray  curvature  at  the  present  and 
new  ray  points. 

The  value  of  K„  in  radians/grid  unit  at  the  new  ray  point. 


bUictLiL.  AS  a  resuic,  cne  iniciai  vaxue  oi  ap/ai.  lui  puncm-s 
is  determined  analytically.  This  value  is  used  in  the 
Runge  Kutta  calculations  of  3  and  d6/dt. 

When  IFLG  is  zero  a  check  is  made  in  HEIGHT  to  determine 
if  there  should  be  a  breakup  of  the  time  step  interval  in 
order  to  maintain  the  desired  accuracy  in  the  calculations 
of  either  8  or  the  ray  path.  If  there  is  a  division  of 
the  time  step  interval,  IFLG  is  set  equal  to  one  once  the 
time  step  interval  is  sufficiently  reduced.  When  IFLG 


The  number  of  lines  of  printout  between  page  and  column 
headings . 

Expressions  used  in  the  Runge-Kutta  calculations  of  S  and 
dS/dt  where  i  =»  1,  2,  ....  9. 


The  perpendiculae  distance  between  rays. 


NGO  The  value  of  NGO  is  decennined  in  MOVE.  If  a  ray  poinc 

lies  wichin  one  and  one  half  grid  unics  of  a  grid  boundary 
NGO  is  2.  Ocherwise,  NGO  is  1.  (Inicjalized  in  RAYN.) 

NOLINE  An  index  used  Co  determine  when  co  wrice  page  and  column 

headings  depending  upon  che  number  of  lines  of  princouc. 


PAT  I 


A  program  symbol  for  p.  The  value  of  p  ac  Che  point  prior 
to  Che  new  ray  point. 

PHI  The  program  symbol  for  D. 

POT  A  program  symbol  for  p.  The  value  of  p  at  the  new  ray  point. 
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